Common Lisp require is broken & I can't have the source.

["Wilson M. Michaels" <mac%mcc.arpa@CSNET-RELAY>]

In Symbolics 3600 Release 6.1, IP-TCP 29.13, Release-6-7 4.0,
COLOR 135.50, Experimental VISTA 4.0, microcode TMC5-COLOR-MIC 336,
FEP 127, FEP0:>v127-lisp.flod(5), FEP0:>v127-loaders.flod(5),
FEP0:>v127-debug.flod(10), FEP0:>v127-info.flod(5), on Mac's Color System:

The Common Lisp function (REQUIRE <name>) is broken.   Here is a dumb
little version I hacked in order to get my job done:


;;;-*- Mode: LISP; Syntax: Zetalisp; Package: USER; Base: 10 -*-

(DEFUN  REQUIRE (NAME)			;Once again I need SYMBOLICS source to fix a bug, but can't have it
  (UNLESS (CL:FIND (CL:STRING NAME) CL:*MODULES* :TEST #'CL:STRING-EQUAL)
    (MAKE-SYSTEM NAME :NOCONFIRM)))


I know this is in the Zetalisp package and REQUIRE is defined in the
Common Lisp package.  That one is broken.  It needs to be fixed by
SYMBOLICS.

>>Trap: The first argument given to the SYS:LDB-INTERNAL instruction, #\F, was not a number.
While in the function STRING-UPCASE  SI:MAYBE-RELOAD-SYSTEM-DECLARATION  SI:FIND-SYSTEM-NAMED

STRING-UPCASE:  (P.C. = 26)
   Arg 0 (STRING): #"FOO"
   Local 0 (STRING): #"FOO"
   --Defaulted args:--
   Arg 1 (SI:FROM): 0
   Arg 2 (SI:TO): NIL
   Arg 3 (SI:COPY-P): T
   Local 4 (SI:LEN): 3
   Local 5 (SI:CHAR): #\F
   Local 6 (SI:SUBCHAR): NIL
   Local 7 (SI:I): 0

SI:MAYBE-RELOAD-SYSTEM-DECLARATION:  (P.C. = 44)
   Arg 0 (SI:SYSTEM-NAME): #"FOO"
   Arg 1 (SI:KEYWORDS): (:NOCONFIRM)

SI:FIND-SYSTEM-NAMED:  (P.C. = 50)
   Arg 0 (SI:NAME): #"FOO"
   --Defaulted args:--
   Arg 1 (SI:NO-ERROR-P): NIL
   Arg 2 (SI:LOADED-ONLY): NIL

MAKE-SYSTEM:  (P.C. = 6)
   Arg 0 (SI:SYSTEM): #"FOO"
   Rest arg (SI:KEYWORDS): (:NOCONFIRM)

CL:REQUIRE:  (P.C. = 17)
   Arg 0 (SCL::MODULE-NAME): FOO
   Local 0 (SCL::MODULE-NAME): #"FOO"
   --Defaulted args:--
   Arg 1 (CL:PATHNAME): NIL

SI:*EVAL:  (P.C. = 401)
   Arg 0 (SI:FORM): (CL:REQUIRE (QUOTE FOO))
   Local 0 (SI:FORM): NIL
   --Defaulted args:--
   Arg 1 (SI:ENV): NIL
   Arg 2 (SI:HOOK): NIL

(:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0):  (P.C. = 152)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 74400074>

TV:WITH-NOTIFICATION-MODE-INTERNAL:  (P.C. = 16)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0) 74400101>

Rest of stack:
SI:LISP-COMMAND-LOOP-INTERNAL:  (P.C. = 54)
SI:LISP-COMMAND-LOOP:  (P.C. = 67)
SI:LISP-TOP-LEVEL1:  (P.C. = 5)
SI:PROCESS-TOP-LEVEL:  (P.C. = 54)