Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/package.lap
There are no other files named package.lap in the archive.
;;; CLC vP.U.V.1(2) compiling CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37
(IN-PACKAGE (QUOTE LISP))
(EXPORT (QUOTE (PACKAGE *PACKAGE* MAKE-PACKAGE IN-PACKAGE FIND-PACKAGE RENAME-PACKAGE LIST-ALL-PACKAGES UNINTERN EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS DO-SYMBOLS DO-EXTERNAL-SYMBOLS DO-ALL-SYMBOLS APROPOS APROPOS-LIST *KEYWORD-PACKAGE* *LISP-PACKAGE*)))
#_(LAP #0_%SP-GET-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 4 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE %SP-GET-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYM)))
(%PUT (QUOTE %SP-GET-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE %SP-GET-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_%SP-SET-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVEM O2 0 Q)
(MOVEM O2 4 O1)
(MOVE O1 4 O1)
(MOVEI N 1)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE %SP-SET-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYM PACK)))
(%PUT (QUOTE %SP-SET-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE %SP-SET-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PRINT-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_("#<The " 0 " package>")
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVEM O3 -1 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL LISP::%SP-WRITE-STRING 4)
(MOVE O1 -3 Q)
(CALL PACKAGE-NAME 1)
(MOVEM O1 0 Q)
(MOVE O4 NIL)
(MOVE O2 -2 Q)
(MOVE O3 (CONSTANT 1))
(CALL LISP::%SP-WRITE-STRING 4)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -2 Q)
(MOVE O3 (CONSTANT 1))
(CALL LISP::%SP-WRITE-STRING 4)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE PRINT-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PACKAGE STREAM PRINT-LEVEL)))
(%PUT (QUOTE PRINT-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PRINT-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_INTERNAL-MAKE-PACKAGE EXPR
(ENTRY-POINTS (2 3 4 5 6 7 8) REST)
#0_(8 1 PACKAGE :NAME "" :INTERNAL-SYMBOLS :TEST EQUAL :EXTERNAL-SYMBOLS ((:SHADOWING-SYMBOLS . 7) (:EXTERNAL-SYMBOLS . 6) (:INTERNAL-SYMBOLS . 5) (:USED-BY-LIST . 4) (:USE-LIST . 3) (:NICKNAMES . 2) (:NAME . 1)) "Unknown option to DefStruct constructor.")
(CODE-START)
(LABEL 2) (MOVE O1 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST1)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST2)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST3)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST4)
(JRST 1)
(LABEL 7) (MOVEI W2 5)
(ICALL REST5)
(JRST 1)
(LABEL 8) (MOVEI W2 0)
(ICALL RESTX)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAKE-ARRAY 1)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 1))
(MOVEM O2 -2 O1)
(MOVE O2 (CONSTANT 2))
(MOVEM O2 0 O1)
(MOVE O5 O1)
(MOVEM O5 -4 Q)
(MOVEM NIL -3 Q)
(LABEL 14) (SKIPE NIL -5 Q)
(JRST 15)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 3))
(CALL MEMQ 2)
(JUMPN O1 17)
(MOVE O2 (CONSTANT 4))
(MOVE O1 -4 Q)
(MOVEM O2 1 O1)
(LABEL 17) (MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 5))
(CALL MEMQ 2)
(JUMPN O1 19)
(MOVE O2 (CONSTANT 7))
(MOVE O1 (CONSTANT 6))
(CALL MAKE-HASH-TABLE 2)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 5 O1)
(LABEL 19) (MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 8))
(CALL MEMQ 2)
(JUMPN O1 21)
(MOVE O2 (CONSTANT 7))
(MOVE O1 (CONSTANT 6))
(CALL MAKE-HASH-TABLE 2)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 6 O1)
(LABEL 21) (MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 10)
(LABEL 15) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL ASSOC 2)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPN NIL -1 Q)
(JRST 24)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 -4 Q)
(MOVE O2 -1 Q)
(ADDI O1 0 O2)
(MOVEM O3 0 O1)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -3 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(JRST 23)
(LABEL 24) (SKIPA)
(JRST 25)
(MOVE O1 (CONSTANT 10))
(CALL ERROR 1)
(LABEL 25)
(LABEL 23) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(JRST 14)
(LABEL 10) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE INTERNAL-MAKE-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (&REST INITIAL-VALUES)))
(%PUT (QUOTE INTERNAL-MAKE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE INTERNAL-MAKE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-SHADOWING-SYMBOLS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 7 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-SHADOWING-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE PACKAGE-SHADOWING-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-SHADOWING-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-EXTERNAL-SYMBOLS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 6 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-EXTERNAL-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE PACKAGE-EXTERNAL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-EXTERNAL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-INTERNAL-SYMBOLS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 5 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-INTERNAL-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE PACKAGE-INTERNAL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-INTERNAL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-USED-BY-LIST EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 4 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-USED-BY-LIST) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE PACKAGE-USED-BY-LIST) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-USED-BY-LIST) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-USE-LIST EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 3 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-USE-LIST) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE PACKAGE-USE-LIST) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-USE-LIST) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-NICKNAMES EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 2 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-NICKNAMES) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE PACKAGE-NICKNAMES) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-NICKNAMES) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-NAME EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-NAME) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE PACKAGE-NAME) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-NAME) (QUOTE %SOURCE-DOCUMENTATION))))
(SETF (SYMBOL-FUNCTION (QUOTE COPY-PACKAGE)) (FUNCTION BUILT-IN-COPIER))
#_(LAP #0_PACKAGEP EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 PACKAGE T)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM NIL -1 Q)
(CALL SIMPLE-VECTOR-P 1)
(JUMPE O1 3)
(MOVE O1 -2 Q)
(CALL STRINGP 1)
(JUMPN O1 3)
(MOVE O1 -2 Q)
(MOVE O5 -2 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 O5)
(CALL = 2)
(JUMPE O1 3)
(MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JUMPE O1 3)
(MOVE O2 (CONSTANT 1))
(CAME O2 -1 Q)
(SKIPA O1 NIL)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JUMPN O1 5)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -1 Q)
(CALL LISP::INCLUDE-CHASE 2)
(LABEL 5) (JRST 4)
(LABEL 3) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 4) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE PACKAGEP) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (THING)))
(%PUT (QUOTE PACKAGEP) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGEP) (QUOTE %SOURCE-DOCUMENTATION))))
(REMPROP (QUOTE PACKAGE-NAME) (QUOTE SETF-INVERSE))
(%PUT (QUOTE PACKAGE-NAME) (QUOTE SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (ACCESS-FORM) (DO* ((ARGS (CDR ACCESS-FORM) (CDR ARGS)) (DUMMIES NIL (CONS (GENSYM) DUMMIES)) (NEWVAL-VAR (GENSYM)) (NEW-ACCESS-FORM NIL)) ((ATOM ARGS) (SETQ NEW-ACCESS-FORM (CONS (CAR ACCESS-FORM) DUMMIES)) (VALUES DUMMIES (CDR ACCESS-FORM) (LIST NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (%ACCESS-ARGLIST NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR %ACCESS-ARGLIST)))) (SETELT-FORM STRUCTURE 1 NEW-VALUE (QUOTE VECTOR))))) NEW-ACCESS-FORM NEWVAL-VAR) NEW-ACCESS-FORM))))))
(REMPROP (QUOTE PACKAGE-NAME) (QUOTE %SETF-DOCUMENTATION))
(QUOTE PACKAGE-NAME)
(REMPROP (QUOTE PACKAGE-NICKNAMES) (QUOTE SETF-INVERSE))
(%PUT (QUOTE PACKAGE-NICKNAMES) (QUOTE SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (ACCESS-FORM) (DO* ((ARGS (CDR ACCESS-FORM) (CDR ARGS)) (DUMMIES NIL (CONS (GENSYM) DUMMIES)) (NEWVAL-VAR (GENSYM)) (NEW-ACCESS-FORM NIL)) ((ATOM ARGS) (SETQ NEW-ACCESS-FORM (CONS (CAR ACCESS-FORM) DUMMIES)) (VALUES DUMMIES (CDR ACCESS-FORM) (LIST NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (%ACCESS-ARGLIST NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR %ACCESS-ARGLIST)))) (SETELT-FORM STRUCTURE 2 NEW-VALUE (QUOTE VECTOR))))) NEW-ACCESS-FORM NEWVAL-VAR) NEW-ACCESS-FORM))))))
(REMPROP (QUOTE PACKAGE-NICKNAMES) (QUOTE %SETF-DOCUMENTATION))
(QUOTE PACKAGE-NICKNAMES)
(REMPROP (QUOTE PACKAGE-USE-LIST) (QUOTE SETF-INVERSE))
(%PUT (QUOTE PACKAGE-USE-LIST) (QUOTE SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (ACCESS-FORM) (DO* ((ARGS (CDR ACCESS-FORM) (CDR ARGS)) (DUMMIES NIL (CONS (GENSYM) DUMMIES)) (NEWVAL-VAR (GENSYM)) (NEW-ACCESS-FORM NIL)) ((ATOM ARGS) (SETQ NEW-ACCESS-FORM (CONS (CAR ACCESS-FORM) DUMMIES)) (VALUES DUMMIES (CDR ACCESS-FORM) (LIST NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (%ACCESS-ARGLIST NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR %ACCESS-ARGLIST)))) (SETELT-FORM STRUCTURE 3 NEW-VALUE (QUOTE VECTOR))))) NEW-ACCESS-FORM NEWVAL-VAR) NEW-ACCESS-FORM))))))
(REMPROP (QUOTE PACKAGE-USE-LIST) (QUOTE %SETF-DOCUMENTATION))
(QUOTE PACKAGE-USE-LIST)
(REMPROP (QUOTE PACKAGE-USED-BY-LIST) (QUOTE SETF-INVERSE))
(%PUT (QUOTE PACKAGE-USED-BY-LIST) (QUOTE SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (ACCESS-FORM) (DO* ((ARGS (CDR ACCESS-FORM) (CDR ARGS)) (DUMMIES NIL (CONS (GENSYM) DUMMIES)) (NEWVAL-VAR (GENSYM)) (NEW-ACCESS-FORM NIL)) ((ATOM ARGS) (SETQ NEW-ACCESS-FORM (CONS (CAR ACCESS-FORM) DUMMIES)) (VALUES DUMMIES (CDR ACCESS-FORM) (LIST NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (%ACCESS-ARGLIST NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR %ACCESS-ARGLIST)))) (SETELT-FORM STRUCTURE 4 NEW-VALUE (QUOTE VECTOR))))) NEW-ACCESS-FORM NEWVAL-VAR) NEW-ACCESS-FORM))))))
(REMPROP (QUOTE PACKAGE-USED-BY-LIST) (QUOTE %SETF-DOCUMENTATION))
(QUOTE PACKAGE-USED-BY-LIST)
(REMPROP (QUOTE PACKAGE-INTERNAL-SYMBOLS) (QUOTE SETF-INVERSE))
(%PUT (QUOTE PACKAGE-INTERNAL-SYMBOLS) (QUOTE SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (ACCESS-FORM) (DO* ((ARGS (CDR ACCESS-FORM) (CDR ARGS)) (DUMMIES NIL (CONS (GENSYM) DUMMIES)) (NEWVAL-VAR (GENSYM)) (NEW-ACCESS-FORM NIL)) ((ATOM ARGS) (SETQ NEW-ACCESS-FORM (CONS (CAR ACCESS-FORM) DUMMIES)) (VALUES DUMMIES (CDR ACCESS-FORM) (LIST NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (%ACCESS-ARGLIST NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR %ACCESS-ARGLIST)))) (SETELT-FORM STRUCTURE 5 NEW-VALUE (QUOTE VECTOR))))) NEW-ACCESS-FORM NEWVAL-VAR) NEW-ACCESS-FORM))))))
(REMPROP (QUOTE PACKAGE-INTERNAL-SYMBOLS) (QUOTE %SETF-DOCUMENTATION))
(QUOTE PACKAGE-INTERNAL-SYMBOLS)
(REMPROP (QUOTE PACKAGE-EXTERNAL-SYMBOLS) (QUOTE SETF-INVERSE))
(%PUT (QUOTE PACKAGE-EXTERNAL-SYMBOLS) (QUOTE SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (ACCESS-FORM) (DO* ((ARGS (CDR ACCESS-FORM) (CDR ARGS)) (DUMMIES NIL (CONS (GENSYM) DUMMIES)) (NEWVAL-VAR (GENSYM)) (NEW-ACCESS-FORM NIL)) ((ATOM ARGS) (SETQ NEW-ACCESS-FORM (CONS (CAR ACCESS-FORM) DUMMIES)) (VALUES DUMMIES (CDR ACCESS-FORM) (LIST NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (%ACCESS-ARGLIST NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR %ACCESS-ARGLIST)))) (SETELT-FORM STRUCTURE 6 NEW-VALUE (QUOTE VECTOR))))) NEW-ACCESS-FORM NEWVAL-VAR) NEW-ACCESS-FORM))))))
(REMPROP (QUOTE PACKAGE-EXTERNAL-SYMBOLS) (QUOTE %SETF-DOCUMENTATION))
(QUOTE PACKAGE-EXTERNAL-SYMBOLS)
(REMPROP (QUOTE PACKAGE-SHADOWING-SYMBOLS) (QUOTE SETF-INVERSE))
(%PUT (QUOTE PACKAGE-SHADOWING-SYMBOLS) (QUOTE SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (ACCESS-FORM) (DO* ((ARGS (CDR ACCESS-FORM) (CDR ARGS)) (DUMMIES NIL (CONS (GENSYM) DUMMIES)) (NEWVAL-VAR (GENSYM)) (NEW-ACCESS-FORM NIL)) ((ATOM ARGS) (SETQ NEW-ACCESS-FORM (CONS (CAR ACCESS-FORM) DUMMIES)) (VALUES DUMMIES (CDR ACCESS-FORM) (LIST NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (%ACCESS-ARGLIST NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR %ACCESS-ARGLIST)))) (SETELT-FORM STRUCTURE 7 NEW-VALUE (QUOTE VECTOR))))) NEW-ACCESS-FORM NEWVAL-VAR) NEW-ACCESS-FORM))))))
(REMPROP (QUOTE PACKAGE-SHADOWING-SYMBOLS) (QUOTE %SETF-DOCUMENTATION))
(QUOTE PACKAGE-SHADOWING-SYMBOLS)
(%PUT (QUOTE PACKAGE) (QUOTE STRUCTURE-PRINT) (QUOTE PRINT-PACKAGE))
(%PUT (QUOTE PACKAGE) (QUOTE DEFSTRUCT-DESCRIPTION) (QUOTE #(PACKAGE VECTOR ((:CONSTRUCTOR INTERNAL-MAKE-PACKAGE) (:PREDICATE PACKAGEP) (:PRINT-FUNCTION PRINT-PACKAGE)) 8 PACKAGE- INTERNAL-MAKE-PACKAGE (PACKAGE-SHADOWING-SYMBOLS PACKAGE-EXTERNAL-SYMBOLS PACKAGE-INTERNAL-SYMBOLS PACKAGE-USED-BY-LIST PACKAGE-USE-LIST PACKAGE-NICKNAMES PACKAGE-NAME) (SHADOWING-SYMBOLS EXTERNAL-SYMBOLS INTERNAL-SYMBOLS USED-BY-LIST USE-LIST NICKNAMES NAME) (NIL (MAKE-HASH-TABLE :TEST (FUNCTION EQUAL)) (MAKE-HASH-TABLE :TEST (FUNCTION EQUAL)) NIL NIL NIL "") ((:TYPE LIST) NIL NIL (:TYPE LIST) (:TYPE LIST) (:TYPE LIST) (:TYPE STRING)) ((PACKAGE-SHADOWING-SYMBOLS . 7) (PACKAGE-EXTERNAL-SYMBOLS . 6) (PACKAGE-INTERNAL-SYMBOLS . 5) (PACKAGE-USED-BY-LIST . 4) (PACKAGE-USE-LIST . 3) (PACKAGE-NICKNAMES . 2) (PACKAGE-NAME . 1)) ((PACKAGE-SHADOWING-SYMBOLS . LIST) (PACKAGE-USED-BY-LIST . LIST) (PACKAGE-USE-LIST . LIST) (PACKAGE-NICKNAMES . LIST) (PACKAGE-NAME . STRING)) ((:SHADOWING-SYMBOLS . 7) (:EXTERNAL-SYMBOLS . 6) (:INTERNAL-SYMBOLS . 5) (:USED-BY-LIST . 4) (:USE-LIST . 3) (:NICKNAMES . 2) (:NAME . 1)))))
(QUOTE PACKAGE)
(DEFVAR *PACKAGE-OBARRAY* NIL "Table of all package symbols.")
(DEFVAR *PACKAGE* NIL "The current package.")
(DEFVAR *LISP-PACKAGE* NIL "Holds the package name for the lisp package.")
(DEFVAR *KEYWORD-PACKAGE* NIL "Holds the package name for the keyword package.")
#_(LAP #0_PARSE-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL FIND-PACKAGE 1)
(JUMPN O1 3)
(MOVE O1 0 Q)
(CALL SYMBOLP 1)
(JUMPE O1 5)
(MOVE O1 0 Q)
(CALL SYMBOL-NAME 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 0 Q)
(CALL STRING 1)
(LABEL 6)
(LABEL 3) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE PARSE-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NAME)))
(%PUT (QUOTE PARSE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PARSE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_HANDLE-PACKAGE-NAME-CONFLICTS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("a new package name will be prompted for." "Package name conflict with ~S." "Name: " *STANDARD-OUTPUT* 0 "There is already a package named " ".")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(CALL CERROR 3)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -1 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 2))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 4))
(CALL LISP::%SP-WRITE-STRING 4)
(CALL READ 0)
(CALL STRING 1)
(MOVEM O1 -1 Q)
(LABEL 7) (JRST 8)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -1 Q)
(CALL FIND-PACKAGE 1)
(JUMPE O1 10)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 0 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 5))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 4))
(CALL LISP::%SP-WRITE-STRING 4)
(MOVE O1 -1 Q)
(CALL PRIN1 1)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 0 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 6))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 4))
(CALL LISP::%SP-WRITE-STRING 4)
(CALL TERPRI 0)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 0 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 2))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 4))
(CALL LISP::%SP-WRITE-STRING 4)
(JRST 11)
(LABEL 10) (MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 11) (CALL READ 0)
(CALL STRING 1)
(MOVEM O1 -1 Q)
(JRST 7)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE HANDLE-PACKAGE-NAME-CONFLICTS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NAME)))
(%PUT (QUOTE HANDLE-PACKAGE-NAME-CONFLICTS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE HANDLE-PACKAGE-NAME-CONFLICTS) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_CHECK-NAME EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL FIND-PACKAGE 1)
(JUMPE O1 4)
(MOVE O1 0 Q)
(CALL LISP::HANDLE-PACKAGE-NAME-CONFLICTS 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 0 Q)
(CALL LISP::PARSE-PACKAGE 1)
(LABEL 5)
(LABEL 3) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE CHECK-NAME) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (STRING-OR-SYMBOL)))
(%PUT (QUOTE CHECK-NAME) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE CHECK-NAME) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_HANDLE-REVEALED-NAME-CONFLICT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(%SP-GET-PACKAGE "Pick the package whose symbol you wish to import ~
from ~S." "Uninterning shadowing symbol ~S leaves ~
more than one symbol with that name available." PACKAGE-NAME "That package is not one of the choices, try again." *STANDARD-OUTPUT* 0)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAPCAR 2)
(MOVEM O1 -4 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 3))
(CALL MAPCAR 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(MOVE O3 -7 Q)
(CALL CERROR 4)
(CALL READ 0)
(CALL FIND-PACKAGE 1)
(MOVEM O1 -3 Q)
(MOVE O1 -7 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -1 Q)
(MOVE O2 -3 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 -2 Q)
(LABEL 7) (MOVE O2 -4 Q)
(MOVE O1 -3 Q)
(CALL MEMBER 2)
(JUMPE O1 8)
(MOVE O2 -5 Q)
(MOVE O1 -2 Q)
(CALL SHADOWING-IMPORT 2)
(JRST 3)
(LABEL 8) (MOVE O5 (SPECIAL 5))
(MOVEM O5 0 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 4))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 6))
(CALL LISP::%SP-WRITE-STRING 4)
(JRST 7)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE HANDLE-REVEALED-NAME-CONFLICT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL CONFLICT-LIST PACKAGE)))
(%PUT (QUOTE HANDLE-REVEALED-NAME-CONFLICT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE HANDLE-REVEALED-NAME-CONFLICT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MAKE-PACKAGE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Return a package object with the given name, assuming that no
package already uses the name."))
#_(LAP #0_MAKE-PACKAGE-INTERNAL-356 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL PACKAGEP 1)
(JUMPE O1 3)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 4)
(LABEL 3) (MOVE O1 0 Q)
(CALL FIND-PACKAGE 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_MAKE-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(:NICKNAMES :USE LISP (:USE :NICKNAMES) CHECK-NAME MAKE-PACKAGE-INTERNAL-356 :NAME :USE-LIST *PACKAGE-OBARRAY*)
(CODE-START)
(LABEL 2) (MOVE O2 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST2)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST3)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST4)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST5)
(JRST 1)
(LABEL 7) (MOVEI W2 1)
(ICALL RESTX)
(LABEL 1) (ADDI Q 18)
(MOVEM O1 -15 Q)
(MOVEM O2 -14 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 9)
(MOVEM O1 -17 Q)
(MOVE O2 -14 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 10)
(JUMPN O2 11)
(MOVE O1 (CONSTANT 2))
(CALL FIND-PACKAGE 1)
(CALL LIST 1)
(LABEL 10) (MOVEM O1 -16 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -13 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -15 Q)
(CALL LISP::CHECK-NAME 1)
(MOVEM O1 -12 Q)
(MOVE O2 -17 Q)
(MOVE O1 (CONSTANT 4))
(CALL MAPCAR 2)
(MOVEM O1 -11 Q)
(MOVE O2 -16 Q)
(MOVE O1 (CONSTANT 5))
(CALL MAPCAR 2)
(MOVEM O1 -10 Q)
(MOVE O5 (CONSTANT 6))
(MOVEM O5 -8 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -7 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -6 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -5 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -4 Q)
(PUSH Q -10 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::INTERNAL-MAKE-PACKAGE 6)
(MOVEM O1 -9 Q)
(MOVE O2 -11 Q)
(MOVE O1 -12 Q)
(CALL CONS 2)
(MOVEM O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(LABEL 17) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPE O1 18)
(JRST 13)
(LABEL 18) (MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -3 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O3 O5)
(MOVE O1 -4 Q)
(MOVE O2 -3 Q)
(CALL LISP::%PUTHASH 3)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(JRST 17)
(LABEL 13) (MOVE O5 -10 Q)
(MOVEM O5 -7 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(LABEL 24) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPE O1 25)
(JRST 20)
(LABEL 25) (MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O2 4 O1)
(MOVE O1 -9 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVEM O2 4 O1)
(MOVE O5 4 O1)
(MOVEM O5 -3 Q)
(MOVE O2 O5)
(MOVEM O2 4 O1)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(JRST 24)
(LABEL 20) (MOVE O1 -9 Q)
(MOVEI N 1)
(SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE MAKE-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NAME &KEY (NICKNAMES NIL) (USE (LIST (FIND-PACKAGE (QUOTE LISP)))))))
(%PUT (QUOTE MAKE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE MAKE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE IN-PACKAGE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Sets *package* to package with given name, nicknames, and use-list,
modifying appropriate fields if the package already exists."))
#_(LAP #0_IN-PACKAGE-INTERNAL-357 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL SYMBOLP 1)
(JUMPE O1 3)
(MOVE O1 0 Q)
(CALL SYMBOL-NAME 1)
(JRST 4)
(LABEL 3) (MOVE O1 0 Q)
(MOVEI N 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_IN-PACKAGE-INTERNAL-358 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL PACKAGEP 1)
(JUMPE O1 3)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 4)
(LABEL 3) (MOVE O1 0 Q)
(CALL FIND-PACKAGE 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_IN-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(:NICKNAMES :USE (:USE :NICKNAMES) IN-PACKAGE-INTERNAL-357 IN-PACKAGE-INTERNAL-358 *PACKAGE* USE-PACKAGE "Prompt for new nickname." "Illegal nickname ~S for ~S, ~
name is already used for ~S." "Enter a different nickname." *STANDARD-OUTPUT* 0 *PACKAGE-OBARRAY* MAKE-PACKAGE)
(CODE-START)
(LABEL 2) (MOVE O2 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST2)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST3)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST4)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST5)
(JRST 1)
(LABEL 7) (MOVEI W2 1)
(ICALL RESTX)
(LABEL 1) (ADDI Q 19)
(MOVEM O1 -16 Q)
(MOVEM O2 -15 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 9)
(MOVEM O1 -18 Q)
(MOVE O2 -15 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 1))
(JUMPN O4 11)
(MOVEM O1 -17 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -14 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -16 Q)
(CALL FIND-PACKAGE 1)
(MOVEM O1 -13 Q)
(SKIPN NIL -13 Q)
(JRST 13)
(MOVE O2 -18 Q)
(MOVE O1 (CONSTANT 3))
(CALL MAPCAR 2)
(MOVEM O1 -11 Q)
(MOVE O1 -13 Q)
(MOVE O2 2 O1)
(MOVE O1 -11 Q)
(CALL NSET-DIFFERENCE 2)
(MOVEM O1 -12 Q)
(MOVE O2 -17 Q)
(MOVE O1 (CONSTANT 4))
(CALL MAPCAR 2)
(MOVEM O1 -10 Q)
(MOVE O1 -13 Q)
(MOVE O2 3 O1)
(MOVE O1 -10 Q)
(CALL NSET-DIFFERENCE 2)
(MOVEM O1 -11 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -10 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 5))
(MOVEM O1 (SPECIAL 5))
(MOVE O2 -11 Q)
(MOVE O1 (CONSTANT 6))
(CALL MAPCAR 2)
(MOVE O5 -12 Q)
(MOVEM O5 -9 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(LABEL 19) (MOVE O1 -9 Q)
(CALL ATOM 1)
(JUMPE O1 20)
(JRST 15)
(LABEL 20) (MOVE O1 -8 Q)
(CALL FIND-PACKAGE 1)
(JUMPE O1 24)
(MOVE O1 -8 Q)
(CALL FIND-PACKAGE 1)
(MOVEM O1 -7 Q)
(MOVE O2 -13 Q)
(CAMN O2 -7 Q)
(LABEL 24) (JRST 22)
(MOVE O1 -8 Q)
(CALL FIND-PACKAGE 1)
(MOVE O5 O1)
(MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 8))
(MOVE O3 -8 Q)
(MOVE O4 -13 Q)
(CALL CERROR 5)
(MOVEM NIL -6 Q)
(LABEL 30) (SKIPN NIL -6 Q)
(JRST 31)
(MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O2 2 O1)
(MOVE O1 -6 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVEM O2 2 O1)
(MOVE O5 2 O1)
(MOVEM O5 -3 Q)
(MOVE O2 O5)
(MOVEM O2 2 O1)
(JRST 26)
(LABEL 31) (MOVE O5 (SPECIAL 10))
(MOVEM O5 -3 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 9))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 11))
(CALL LISP::%SP-WRITE-STRING 4)
(CALL READ 0)
(MOVEM O1 -4 Q)
(CALL FIND-PACKAGE 1)
(JUMPE1 O1 35)
(MOVE O1 -4 Q)
(CALL FIND-PACKAGE 1)
(MOVEM O1 -3 Q)
(MOVE O2 -13 Q)
(CAME O2 -3 Q)
(LABEL 35) (JRST 33)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(LABEL 33) (JRST 30)
(LABEL 26) (JRST 23)
(LABEL 22) (MOVE O1 -8 Q)
(CALL FIND-PACKAGE 1)
(JUMPN O1 36)
(MOVE O1 -8 Q)
(CALL SYMBOLP 1)
(JUMPE O1 37)
(MOVE O1 -8 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -6 Q)
(JRST 38)
(LABEL 37) (MOVE O5 -8 Q)
(MOVEM O5 -6 Q)
(LABEL 38) (MOVE O5 (SPECIAL 12))
(MOVEM O5 -5 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(MOVE O3 O5)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(CALL LISP::%PUTHASH 3)
(MOVE O5 -13 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O1 O5)
(MOVE O2 2 O1)
(MOVE O1 -8 Q)
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(MOVEM O2 2 O1)
(MOVE O5 2 O1)
(MOVEM O5 -5 Q)
(MOVE O2 O5)
(MOVEM O2 2 O1)
(LABEL 36)
(LABEL 23) (MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -9 Q)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JRST 19)
(LABEL 15) (MOVE O1 -13 Q)
(UNBIND 1)
(JRST 14)
(LABEL 13) (MOVE O3 -15 Q)
(MOVE O1 (CONSTANT 13))
(MOVE O2 -16 Q)
(CALL APPLY 3)
(LABEL 14) (MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(SUBI Q 19)
(POPJ P)
)
(%PUT (QUOTE IN-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NAME &REST KEYS &KEY (NICKNAMES NIL) (USE NIL))))
(%PUT (QUOTE IN-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE IN-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FIND-PACKAGE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Find a package whose name is the string given, or the print name if it's a
symbol."))
#_(LAP #0_FIND-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE-OBARRAY*)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(CALL SYMBOLP 1)
(JUMPE O1 3)
(MOVE O1 -1 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 0 Q)
(JRST 4)
(LABEL 3) (MOVE O5 -1 Q)
(MOVEM O5 0 Q)
(LABEL 4) (MOVE O2 (SPECIAL 0))
(MOVE O1 0 Q)
(CALL GETHASH 2)
(MOVEI N 1)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE FIND-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NAME)))
(%PUT (QUOTE FIND-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE FIND-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE RENAME-PACKAGE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Substitute the args for the appropriate fields in the given package."))
#_(LAP #0_RENAME-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2 2-MANY 2-MANY 2-MANY))
#0_(CHECK-NAME *PACKAGE-OBARRAY*)
(CODE-START)
(LABEL 1) (MOVE O3 NIL)
(LABEL 2) (ADDI Q 12)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVE O1 O2)
(CALL LISP::CHECK-NAME 1)
(MOVEM O1 -8 Q)
(MOVE O2 -9 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAPCAR 2)
(MOVEM O1 -7 Q)
(MOVE O1 -11 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O2 (SPECIAL 1))
(MOVE O1 O5)
(CALL REMHASH 2)
(MOVE O1 -11 Q)
(MOVE O5 2 O1)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 8) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 9)
(JRST 4)
(LABEL 9) (MOVE O2 (SPECIAL 1))
(MOVE O1 -4 Q)
(CALL REMHASH 2)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 8)
(LABEL 4) (MOVE O5 -8 Q)
(MOVEM O5 -5 Q)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -3 Q)
(MOVE O3 O5)
(MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(CALL LISP::%PUTHASH 3)
(MOVE O5 -7 Q)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 15) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 16)
(JRST 11)
(LABEL 16) (MOVE O5 -8 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -1 Q)
(MOVE O5 -11 Q)
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL LISP::%PUTHASH 3)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 15)
(LABEL 11) (MOVE O5 -11 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -4 Q)
(MOVE O2 O5)
(MOVE O1 -5 Q)
(MOVEM O2 1 O1)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -4 Q)
(MOVE O2 O5)
(MOVEM O2 2 O1)
(MOVE O1 2 O1)
(MOVEI N 1)
(SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE RENAME-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PACKAGE NAME &OPTIONAL (NICKNAMES NIL))))
(%PUT (QUOTE RENAME-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE RENAME-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE %LAP-RESULT) (QUOTE GLOBALLY-SPECIAL) T)
(%PUT (QUOTE LIST-ALL-PACKAGES) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Return a list of all the packages in extent."))
#_(LAP #0_LIST-ALL-PACKAGES EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(%LAP-RESULT *PACKAGE-OBARRAY* 0 COMPILER::DELKEY COMPILER::NILKEY)
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM NIL -9 Q)
(MOVE O1 NIL)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O5 5 O1)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -4 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O2 -7 Q)
(CAME O2 -4 Q)
(JRST 8)
(JRST 3)
(LABEL 8) (MOVE O2 -4 Q)
(MOVE O1 -6 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -5 Q)
(JUMPE O1 12)
(MOVE O2 (SPECIAL 3))
(CAMN O2 -5 Q)
(LABEL 12) (JRST 11)
(MOVE O2 (SPECIAL 4))
(CAME O2 -5 Q)
(JRST 13)
(MOVE O1 NIL)
(MOVEM O1 -5 Q)
(LABEL 13) (MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (SPECIAL 0))
(MOVE O1 O5)
(CALL ADJOIN 2)
(MOVEM O1 (SPECIAL 0))
(LABEL 11) (MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (MOVE O1 (SPECIAL 0))
(MOVEI N 1)
(UNBIND 1)
(SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE LIST-ALL-PACKAGES) (QUOTE %ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE LIST-ALL-PACKAGES) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE LIST-ALL-PACKAGES) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE UNINTERN) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Removes the symbol from the given package."))
#_(LAP #0_UNINTERN-INTERNAL-362 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(:EXTERNAL)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVE O6 0 O6)
(MOVE O6 0 O6)
(MOVEM O6 -4 Q)
(MOVEM O1 -3 Q)
(MOVE O1 1 O6)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -2 Q)
(MOVE O2 -3 Q)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -1 Q)
(MOVEM O2 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 3)
(MOVEI N 1)
(JRST 4)
(LABEL 3) (MOVE O6 -4 Q)
(MOVE O1 1 O6)
(MOVEI N 1)
(LABEL 4) (SUBI Q 5)
(POPJ P)
)
#_(LAP #0_UNINTERN EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE* UNINTERN-INTERNAL-362 1 2)
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 0))
(LABEL 2) (ADDI Q 7)
(MOVE W2 (CONSTANT 3))
(MOVE O6 NIL)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -6 Q)
(MOVE O6 W3)
(MOVEM O1 1 O6)
(MOVEM O2 -5 Q)
(MOVE O1 O2)
(MOVE O2 7 O1)
(MOVE O1 1 O6)
(CALL MEMBER 2)
(JUMPE O1 4)
(MOVE W2 (CONSTANT 2))
(MOVE O6 -6 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -4 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 W3)
(ICALL CLOGEN)
(MOVEM O1 -2 Q)
(MOVE O1 -5 Q)
(MOVE O2 3 O1)
(MOVE O1 -2 Q)
(CALL MAPCAR 2)
(CALL DELETE-DUPLICATES 1)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL DELETE 2)
(SKIPN NIL 1 O1)
(JRST 6)
(MOVE O3 -5 Q)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(MOVE O2 -3 Q)
(CALL LISP::HANDLE-REVEALED-NAME-CONFLICT 3)
(JRST 7)
(LABEL 6) (MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O2 7 O1)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL DELETE 2)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVEM O2 7 O1)
(MOVE O2 O1)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL UNINTERN 2)
(LABEL 7) (JRST 5)
(LABEL 4) (MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -3 Q)
(MOVE O1 -5 Q)
(MOVE O2 5 O1)
(MOVE O1 -3 Q)
(CALL GETHASH 2)
(ICALL VALUES-TO-LIST)
(MOVEM O1 -2 Q)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL LISP::%SP-GET-PACKAGE 1)
(MOVEM O1 -1 Q)
(MOVE O2 -5 Q)
(CAME O2 -1 Q)
(JRST 8)
(MOVE O2 NIL)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL LISP::%SP-SET-PACKAGE 2)
(LABEL 8) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(SKIPN NIL 0 O1)
(JRST 10)
(MOVE O1 -5 Q)
(MOVE O2 5 O1)
(MOVE O1 -3 Q)
(CALL REMHASH 2)
(JRST 11)
(LABEL 10) (MOVE O1 -5 Q)
(MOVE O2 6 O1)
(MOVE O1 -3 Q)
(CALL REMHASH 2)
(LABEL 11)
(LABEL 5) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE UNINTERN) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL &OPTIONAL (PACKAGE *PACKAGE*))))
(%PUT (QUOTE UNINTERN) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE UNINTERN) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EXPORT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Export makes it args external symbols in the given package,
after checking for name conflicts in the used-by-list."))
#_(LAP #0_EXPORT EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE* T "prompt for importing the symbol." "Symbol ~S not available in ~S." "Should the symbol be imported ?" "prompt for choice between symbol present and ~
inherited symbol on a symbol by symbol, or ~
package basis." "Exporting symbol ~S causes name conflict in ~
the package~P ~S." "Do you want the symbol already present ~
to always take precedence ?" "Do you want the symbol being exported to ~
always take precedence ?" "Should the symbol ~
already present in package ~
~S take precedence ?")
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 0))
(LABEL 2) (ADDI Q 18)
(MOVEM O1 -17 Q)
(MOVEM O2 -16 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -17 Q)
(CALL LIST 1)
(MOVEM O1 -17 Q)
(LABEL 4) (MOVE O5 -17 Q)
(MOVEM O5 -15 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -14 Q)
(LABEL 10) (MOVE O1 -15 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVE O1 -14 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -13 Q)
(MOVE O1 -16 Q)
(MOVE O2 6 O1)
(MOVE O1 -13 Q)
(CALL GETHASH 2)
(ADJUST-VALUES 2)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(SKIPE NIL -11 Q)
(JRST 14)
(MOVE O1 -14 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -10 Q)
(MOVE O1 -16 Q)
(MOVE O5 4 O1)
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(LABEL 19) (SKIPE NIL -8 Q)
(JRST 20)
(MOVE O5 -7 Q)
(MOVEM O5 -9 Q)
(JRST 15)
(LABEL 20) (MOVE O1 -8 Q)
(MOVE O2 0 O1)
(MOVE O1 -10 Q)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(SKIPN NIL -4 Q)
(JRST 24)
(MOVE O1 -8 Q)
(MOVE O1 0 O1)
(MOVE O2 7 O1)
(MOVE O1 -5 Q)
(CALL MEMBER 2)
(SKIPE NIL O1)
(LABEL 24) (JRST 22)
(MOVE O1 -8 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O2 -7 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -7 Q)
(LABEL 22) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 19)
(LABEL 15) (MOVE O2 -16 Q)
(MOVE O1 -10 Q)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O1 O2)
(TDCN O1 O1)
(MOVE O1 (CONSTANT 1))
(JUMPE O1 27)
(MOVE O4 -16 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 (CONSTANT 3))
(MOVE O3 -14 Q)
(CALL CERROR 4)
(MOVE O1 (CONSTANT 4))
(CALL Y-OR-N-P 1)
(JUMPE O1 28)
(MOVE O2 -16 Q)
(MOVE O1 -14 Q)
(CALL IMPORT 2)
(MOVE O2 -16 Q)
(MOVE O1 -14 Q)
(CALL EXPORT 2)
(LABEL 28) (JRST 26)
(LABEL 27) (SKIPE NIL -9 Q)
(JRST 30)
(MOVE O1 -16 Q)
(MOVE O2 5 O1)
(MOVE O1 -10 Q)
(CALL REMHASH 2)
(MOVE O5 -10 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -16 Q)
(MOVE O5 6 O1)
(MOVEM O5 -7 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -6 Q)
(MOVE O3 O5)
(MOVE O1 -8 Q)
(MOVE O2 -7 Q)
(CALL LISP::%PUTHASH 3)
(JRST 26)
(LABEL 30) (SKIPA)
(JRST 31)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(MOVEM O1 -6 Q)
(MOVE O5 -9 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 (CONSTANT 6))
(MOVE O3 -14 Q)
(MOVE O4 -6 Q)
(CALL CERROR 5)
(MOVE O2 (CONSTANT 7))
(MOVE O1 NIL)
(CALL FORMAT 2)
(CALL Y-OR-N-P 1)
(JUMPE O1 33)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(LABEL 38) (MOVE O1 -8 Q)
(CALL ATOM 1)
(JUMPE O1 39)
(JRST 34)
(LABEL 39) (MOVE O5 -7 Q)
(MOVEM O5 -5 Q)
(MOVEM O5 -2 Q)
(MOVE O2 O5)
(MOVE O1 -10 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 0 Q)
(MOVE O1 -2 Q)
(MOVE O2 7 O1)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 -1 Q)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVEM O2 7 O1)
(MOVE O5 7 O1)
(MOVEM O5 -4 Q)
(MOVE O2 O5)
(MOVEM O2 7 O1)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JRST 38)
(LABEL 34) (JRST 32)
(LABEL 33) (MOVE O2 (CONSTANT 8))
(MOVE O1 NIL)
(CALL FORMAT 2)
(CALL Y-OR-N-P 1)
(JUMPE O1 41)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(LABEL 46) (MOVE O1 -8 Q)
(CALL ATOM 1)
(JUMPE O1 47)
(JRST 42)
(LABEL 47) (MOVE O2 -7 Q)
(MOVE O1 -10 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 -6 Q)
(MOVE O2 -7 Q)
(CALL UNINTERN 2)
(MOVE O2 -7 Q)
(MOVE O1 -10 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 -5 Q)
(MOVE O1 1 O1)
(SKIPN NIL 0 O1)
(JRST 49)
(MOVE O2 -7 Q)
(MOVE O1 -14 Q)
(CALL SHADOWING-IMPORT 2)
(LABEL 49) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JRST 46)
(LABEL 42) (JRST 32)
(LABEL 41) (SKIPA)
(JRST 51)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(LABEL 56) (MOVE O1 -8 Q)
(CALL ATOM 1)
(JUMPE O1 57)
(JRST 52)
(LABEL 57) (MOVE O1 -7 Q)
(MOVE O3 1 O1)
(MOVE O1 NIL)
(MOVE O2 (CONSTANT 9))
(CALL FORMAT 3)
(CALL Y-OR-N-P 1)
(JUMPE O1 59)
(MOVE O5 -7 Q)
(MOVEM O5 -5 Q)
(MOVE O2 O5)
(MOVE O1 -10 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 -3 Q)
(MOVE O1 -5 Q)
(MOVE O2 7 O1)
(MOVE O1 -3 Q)
(CALL CONS 2)
(MOVEM O1 -4 Q)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(MOVEM O2 7 O1)
(JRST 60)
(LABEL 59) (MOVE O2 -7 Q)
(MOVE O1 -10 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 -6 Q)
(MOVE O2 -7 Q)
(CALL UNINTERN 2)
(LABEL 60) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JRST 56)
(LABEL 52)
(LABEL 51)
(LABEL 32) (MOVE O1 -16 Q)
(MOVE O2 5 O1)
(MOVE O1 -10 Q)
(CALL REMHASH 2)
(MOVE O5 -10 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -16 Q)
(MOVE O5 6 O1)
(MOVEM O5 -7 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -6 Q)
(MOVE O3 O5)
(MOVE O1 -8 Q)
(MOVE O2 -7 Q)
(CALL LISP::%PUTHASH 3)
(LABEL 31)
(LABEL 26)
(LABEL 14) (MOVE O1 -15 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 0 O1)
(MOVEM O1 -14 Q)
(JRST 10)
(LABEL 6) (SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE EXPORT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL-LIST &OPTIONAL (PACKAGE *PACKAGE*))))
(%PUT (QUOTE EXPORT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE EXPORT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE UNEXPORT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Makes the symbols unavailable to using packages. The inverse of export."))
#_(LAP #0_UNEXPORT EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE* T)
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 0))
(LABEL 2) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -7 Q)
(CALL LIST 1)
(MOVEM O1 -7 Q)
(LABEL 4) (MOVE O5 -7 Q)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 10) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVE O1 -4 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -3 Q)
(MOVE O1 -6 Q)
(MOVE O2 6 O1)
(MOVE O1 -3 Q)
(CALL REMHASH 2)
(MOVE O5 -3 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -6 Q)
(MOVE O5 5 O1)
(MOVEM O5 -1 Q)
(MOVE O5 -4 Q)
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL LISP::%PUTHASH 3)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 10)
(LABEL 6) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE UNEXPORT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL-LIST &OPTIONAL (PACKAGE *PACKAGE*))))
(%PUT (QUOTE UNEXPORT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE UNEXPORT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE IMPORT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Make the symbols in symbol-list available as internal symbols
to using packages."))
#_(LAP #0_IMPORT EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE* T "prompt for choice between old and new symbols." "Symbol named ~S already available in ~S." "Should the new symbol take precedence ?")
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 0))
(LABEL 2) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVEM O2 -8 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -9 Q)
(CALL LIST 1)
(MOVEM O1 -9 Q)
(LABEL 4) (MOVE O5 -9 Q)
(MOVEM O5 -7 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(LABEL 10) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVE O1 -6 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -5 Q)
(MOVE O2 -8 Q)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(SKIPN NIL -3 Q)
(JRST 15)
(MOVE O2 -6 Q)
(CAMN O2 -4 Q)
(LABEL 15) (JRST 13)
(MOVE O4 -8 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 (CONSTANT 3))
(MOVE O3 -6 Q)
(CALL CERROR 4)
(MOVE O1 (CONSTANT 4))
(CALL Y-OR-N-P 1)
(JUMPE O1 17)
(MOVE O1 -6 Q)
(CALL SHADOWING-IMPORT 1)
(LABEL 17) (JRST 14)
(LABEL 13) (MOVE O1 -6 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -2 Q)
(MOVE O1 -8 Q)
(MOVE O5 5 O1)
(MOVEM O5 -1 Q)
(MOVE O5 -6 Q)
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL LISP::%PUTHASH 3)
(LABEL 14) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(JRST 10)
(LABEL 6) (SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE IMPORT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL-LIST &OPTIONAL (PACKAGE *PACKAGE*))))
(%PUT (QUOTE IMPORT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE IMPORT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SHADOWING-IMPORT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Imports symbols in symbol-list and adds them to the
shadowing-symbols list of package. "))
#_(LAP #0_SHADOWING-IMPORT EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE* T :INTERNAL :EXTERNAL)
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 0))
(LABEL 2) (ADDI Q 12)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -11 Q)
(CALL LIST 1)
(MOVEM O1 -11 Q)
(LABEL 4) (MOVE O5 -11 Q)
(MOVEM O5 -9 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(LABEL 10) (MOVE O1 -9 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVE O1 -8 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -7 Q)
(MOVE O2 -10 Q)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVE O2 (CONSTANT 2))
(CAMN O2 -5 Q)
(JRST1 15)
(MOVE O2 (CONSTANT 3))
(CAME O2 -5 Q)
(LABEL 15) (JRST 13)
(MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O2 7 O1)
(MOVE O1 -6 Q)
(CALL DELETE 2)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 7 O1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL UNINTERN 2)
(LABEL 13) (MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O2 7 O1)
(MOVE O1 -8 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVEM O2 7 O1)
(MOVE O5 7 O1)
(MOVEM O5 -3 Q)
(MOVE O2 O5)
(MOVEM O2 7 O1)
(MOVE O1 -8 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -4 Q)
(MOVE O1 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -3 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -2 Q)
(MOVE O3 O5)
(MOVE O1 -4 Q)
(MOVE O2 -3 Q)
(CALL LISP::%PUTHASH 3)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -9 Q)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JRST 10)
(LABEL 6) (SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE SHADOWING-IMPORT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL-LIST &OPTIONAL (PACKAGE *PACKAGE*))))
(%PUT (QUOTE SHADOWING-IMPORT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE SHADOWING-IMPORT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SHADOW) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Creates a shadow for the arguments, does nothing if the symbol
is directly present already."))
#_(LAP #0_SHADOW EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE* T :INHERITED)
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 0))
(LABEL 2) (ADDI Q 14)
(MOVEM O1 -13 Q)
(MOVEM O2 -12 Q)
(CALL SYMBOLP 1)
(JUMPE O1 4)
(MOVE O1 -13 Q)
(CALL LIST 1)
(MOVEM O1 -13 Q)
(LABEL 4) (MOVE O5 -13 Q)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(LABEL 10) (MOVE O1 -11 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVE O1 -10 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -9 Q)
(MOVE O2 -12 Q)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(SKIPN NIL -7 Q)
(JRST1 15)
(MOVE O2 (CONSTANT 2))
(CAME O2 -7 Q)
(LABEL 15) (JRST 13)
(MOVE O1 -10 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -6 Q)
(CALL MAKE-SYMBOL 1)
(MOVEM O1 -5 Q)
(MOVE O2 -12 Q)
(CALL LISP::%SP-SET-PACKAGE 2)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O2 7 O1)
(MOVE O1 -5 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVEM O2 7 O1)
(MOVE O5 7 O1)
(MOVEM O5 -3 Q)
(MOVE O2 O5)
(MOVEM O2 7 O1)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 5 O1)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(MOVE O3 O5)
(MOVE O1 -4 Q)
(MOVE O2 -3 Q)
(CALL LISP::%PUTHASH 3)
(LABEL 13) (MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVEM O1 -11 Q)
(MOVE O1 0 O1)
(MOVEM O1 -10 Q)
(JRST 10)
(LABEL 6) (SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE SHADOW) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL-LIST &OPTIONAL (PACKAGE *PACKAGE*))))
(%PUT (QUOTE SHADOW) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE SHADOW) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE USE-PACKAGE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Put packages in package-list on the package use list of the given package."))
#_(LAP #0_USE-PACKAGE-INTERNAL-363 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Unknown package ~S in call to use-package" "Illegal arg ~S to use-package")
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL PACKAGEP 1)
(JUMPE O1 4)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (SKIPN NIL 0 Q)
(JRST1 7)
(MOVE O1 0 Q)
(CALL SYMBOLP 1)
(SKIPE NIL O1)
(LABEL 7) (JRST1 6)
(MOVE O1 0 Q)
(CALL STRINGP 1)
(SKIPN NIL O1)
(LABEL 6) (JRST 5)
(MOVE O1 0 Q)
(CALL FIND-PACKAGE 1)
(JUMPN O1 9)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL ERROR 2)
(LABEL 9) (JRST 3)
(LABEL 5) (SKIPA)
(JRST 10)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 1))
(CALL ERROR 2)
(LABEL 10)
(LABEL 3) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_USE-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(%SPEC-PACKAGE *PACKAGE* USE-PACKAGE-INTERNAL-363 T %CONFLICT-LIST 0 COMPILER::DELKEY COMPILER::NILKEY "Prompt for which symbols take precedence." "The symbol~P in ~S conflict with ~
one~P already present in ~S." "Do you want the symbols currently present ~
in ~S to take precedence ? " "Do you want the symbols in ~S ~
to take precedence ? " "Should the symbol ~S currently ~
in ~S take precedence ? ")
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 1))
(LABEL 2) (ADDI Q 17)
(MOVEM O1 -16 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O2 (SPECIAL 0))
(MOVE O1 -16 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -16 Q)
(CALL LIST 1)
(MOVE O2 O1)
(JRST 5)
(LABEL 4) (MOVE O2 -16 Q)
(LABEL 5) (MOVE O1 (CONSTANT 2))
(CALL MAPCAR 2)
(MOVEM O1 -16 Q)
(MOVE O5 O1)
(MOVEM O5 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -14 Q)
(LABEL 10) (MOVE O1 -15 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVEM NIL -13 Q)
(MOVE O1 NIL)
(SPEC-BIND (SPECIAL 4))
(MOVEM O1 (SPECIAL 4))
(MOVE O1 -14 Q)
(MOVE O5 6 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 17) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 18)
(JRST 13)
(LABEL 18) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 22)
(MOVE O2 (SPECIAL 6))
(CAMN O2 -8 Q)
(LABEL 22) (JRST 21)
(MOVE O2 (SPECIAL 7))
(CAME O2 -8 Q)
(JRST 23)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 23) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -3 Q)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -1 Q)
(MOVEM O2 0 Q)
(SKIPN NIL 0 Q)
(JRST 27)
(MOVE O1 (SPECIAL 0))
(MOVE O2 7 O1)
(MOVE O1 -1 Q)
(CALL MEMBER 2)
(JUMPN O1 27)
(MOVE O2 -2 Q)
(CAMN O2 -1 Q)
(LABEL 27) (JRST 25)
(MOVE O2 (SPECIAL 4))
(MOVE O1 -1 Q)
(CALL ADJOIN 2)
(MOVEM O1 (SPECIAL 4))
(LABEL 25)
(LABEL 21) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 17)
(LABEL 13) (SKIPE NIL (SPECIAL 4))
(JRST 30)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -11 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O2 3 O1)
(MOVE O1 -14 Q)
(CALL ADJOIN 2)
(MOVEM O1 -7 Q)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(MOVEM O2 3 O1)
(MOVE O5 3 O1)
(MOVEM O5 -10 Q)
(MOVE O2 O5)
(MOVE O1 -11 Q)
(MOVEM O2 3 O1)
(MOVE O5 -14 Q)
(MOVEM O5 -11 Q)
(MOVEM O5 -8 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O2 4 O1)
(MOVE O1 O5)
(CALL ADJOIN 2)
(MOVEM O1 -7 Q)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(MOVEM O2 4 O1)
(MOVE O5 4 O1)
(MOVEM O5 -10 Q)
(MOVE O2 O5)
(MOVEM O2 4 O1)
(JRST 31)
(LABEL 30) (MOVE O5 (CONSTANT 8))
(MOVEM O5 -12 Q)
(MOVE O5 (CONSTANT 9))
(MOVEM O5 -11 Q)
(MOVE O1 (SPECIAL 4))
(CALL LENGTH 1)
(MOVEM O1 -10 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -9 Q)
(MOVE O1 (SPECIAL 4))
(CALL LENGTH 1)
(MOVEM O1 -8 Q)
(PUSH Q (SPECIAL 0))
(MOVE O1 -13 Q)
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(MOVE O4 -10 Q)
(MOVE O5 -9 Q)
(CALL CERROR 6)
(MOVE O3 (SPECIAL 0))
(MOVE O1 NIL)
(MOVE O2 (CONSTANT 10))
(CALL FORMAT 3)
(CALL Y-OR-N-P 1)
(JUMPE O1 33)
(MOVE O5 (SPECIAL 4))
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(LABEL 38) (MOVE O1 -11 Q)
(CALL ATOM 1)
(JUMPE O1 39)
(JRST 34)
(LABEL 39) (MOVE O2 (SPECIAL 0))
(MOVE O1 -10 Q)
(CALL SHADOWING-IMPORT 2)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVEM O1 -11 Q)
(MOVE O1 0 O1)
(MOVEM O1 -10 Q)
(JRST 38)
(LABEL 34) (JRST 32)
(LABEL 33) (MOVE O3 -14 Q)
(MOVE O1 NIL)
(MOVE O2 (CONSTANT 11))
(CALL FORMAT 3)
(CALL Y-OR-N-P 1)
(JUMPE O1 41)
(MOVE O5 (SPECIAL 4))
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(LABEL 46) (MOVE O1 -11 Q)
(CALL ATOM 1)
(JUMPE O1 47)
(JRST 42)
(LABEL 47) (MOVE O1 -10 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -9 Q)
(MOVE O2 -14 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 -9 Q)
(MOVE O2 (SPECIAL 0))
(CALL SHADOWING-IMPORT 2)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVEM O1 -11 Q)
(MOVE O1 0 O1)
(MOVEM O1 -10 Q)
(JRST 46)
(LABEL 42) (JRST 32)
(LABEL 41) (SKIPA)
(JRST 49)
(MOVE O5 (SPECIAL 4))
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(LABEL 54) (MOVE O1 -11 Q)
(CALL ATOM 1)
(JUMPE O1 55)
(JRST 50)
(LABEL 55) (MOVE O4 (SPECIAL 0))
(MOVE O1 NIL)
(MOVE O2 (CONSTANT 12))
(MOVE O3 -10 Q)
(CALL FORMAT 4)
(CALL Y-OR-N-P 1)
(JUMPE O1 57)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -10 Q)
(CALL SHADOWING-IMPORT 2)
(JRST 58)
(LABEL 57) (MOVE O1 -10 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -9 Q)
(MOVE O2 -14 Q)
(CALL FIND-SYMBOL 2)
(MOVEM O1 -9 Q)
(MOVE O2 (SPECIAL 0))
(CALL SHADOWING-IMPORT 2)
(LABEL 58) (MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVEM O1 -11 Q)
(MOVE O1 0 O1)
(MOVEM O1 -10 Q)
(JRST 54)
(LABEL 50)
(LABEL 49)
(LABEL 32) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -11 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O2 3 O1)
(MOVE O1 -14 Q)
(CALL ADJOIN 2)
(MOVEM O1 -7 Q)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(MOVEM O2 3 O1)
(MOVE O5 3 O1)
(MOVEM O5 -10 Q)
(MOVE O2 O5)
(MOVE O1 -11 Q)
(MOVEM O2 3 O1)
(MOVE O5 -14 Q)
(MOVEM O5 -11 Q)
(MOVEM O5 -8 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O2 4 O1)
(MOVE O1 O5)
(CALL ADJOIN 2)
(MOVEM O1 -7 Q)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(MOVEM O2 4 O1)
(MOVE O5 4 O1)
(MOVEM O5 -10 Q)
(MOVE O2 O5)
(MOVEM O2 4 O1)
(LABEL 31) (UNBIND 1)
(MOVE O1 -15 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 0 O1)
(MOVEM O1 -14 Q)
(JRST 10)
(LABEL 6) (UNBIND 1)
(SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE USE-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PACKAGE-LIST &OPTIONAL (%SPEC-PACKAGE *PACKAGE*))))
(%PUT (QUOTE USE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE USE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE UNUSE-PACKAGE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Removes the packages in the first arg from the use-list of the second."))
#_(LAP #0_UNUSE-PACKAGE-INTERNAL-364 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Illegal arg to unuse-package ~S.")
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL PACKAGEP 1)
(JUMPE O1 4)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(CALL SYMBOLP 1)
(JUMPN1 O1 6)
(MOVE O1 0 Q)
(CALL STRINGP 1)
(SKIPN NIL O1)
(LABEL 6) (JRST 5)
(MOVE O1 0 Q)
(CALL FIND-PACKAGE 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 7)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL ERROR 2)
(LABEL 7)
(LABEL 3) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_UNUSE-PACKAGE EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*PACKAGE* UNUSE-PACKAGE-INTERNAL-364 T)
(CODE-START)
(LABEL 1) (MOVE O2 (SPECIAL 0))
(LABEL 2) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -6 Q)
(CALL LIST 1)
(MOVEM O1 -6 Q)
(LABEL 4) (MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 1))
(CALL MAPCAR 2)
(MOVEM O1 -6 Q)
(MOVE O5 O1)
(MOVEM O5 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(LABEL 10) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(JRST 6)
(LABEL 11) (MOVE O5 -3 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O2 4 O1)
(MOVE O1 -5 Q)
(CALL DELETE 2)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVEM O2 4 O1)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -3 Q)
(JRST 10)
(LABEL 6) (MOVE O5 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O5 3 O1)
(MOVEM O5 -2 Q)
(MOVE O2 -6 Q)
(MOVE O1 O5)
(CALL NSET-DIFFERENCE 2)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 3 O1)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE UNUSE-PACKAGE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PACKAGE-LIST &OPTIONAL (PACKAGE *PACKAGE*))))
(%PUT (QUOTE UNUSE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE UNUSE-PACKAGE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE %FAS-STRING) (QUOTE GLOBALLY-SPECIAL) T)
(%PUT (QUOTE %FAS-RESULT) (QUOTE GLOBALLY-SPECIAL) T)
(%PUT (QUOTE FIND-ALL-SYMBOLS) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Looks for symbol name string in all packages."))
#_(LAP #0_FIND-ALL-SYMBOLS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(%FAS-STRING %FAS-RESULT *PACKAGE-OBARRAY* 0 COMPILER::DELKEY COMPILER::NILKEY :INHERITED)
(CODE-START)
(LABEL 1) (ADDI Q 15)
(MOVEM O1 -14 Q)
(CALL STRINGP 1)
(JUMPE O1 3)
(MOVE O5 -14 Q)
(MOVEM O5 -13 Q)
(JRST 4)
(LABEL 3) (MOVE O1 -14 Q)
(CALL SYMBOL-NAME 1)
(MOVEM O1 -13 Q)
(LABEL 4) (MOVEM NIL -12 Q)
(MOVE O1 -13 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 -12 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O5 (SPECIAL 2))
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -7 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -6 Q)
(LABEL 9) (MOVE O2 -10 Q)
(CAME O2 -7 Q)
(JRST 10)
(JRST 5)
(LABEL 10) (MOVE O2 -7 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 14)
(MOVE O2 (SPECIAL 4))
(CAMN O2 -8 Q)
(LABEL 14) (JRST 13)
(MOVE O2 (SPECIAL 5))
(CAME O2 -8 Q)
(JRST 15)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 15) (MOVE O5 -8 Q)
(MOVEM O5 -4 Q)
(MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -2 Q)
(MOVE O2 -3 Q)
(MOVE O1 O5)
(CALL FIND-SYMBOL 2)
(ADJUST-VALUES 2)
(MOVEM O1 -1 Q)
(MOVEM O2 0 Q)
(SKIPN NIL 0 Q)
(JRST 19)
(MOVE O2 (CONSTANT 6))
(CAMN O2 0 Q)
(LABEL 19) (JRST 17)
(MOVE O2 (SPECIAL 1))
(MOVE O1 -1 Q)
(CALL ADJOIN 2)
(MOVEM O1 (SPECIAL 1))
(LABEL 17)
(LABEL 13) (MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(JRST 9)
(LABEL 5) (MOVE O1 (SPECIAL 1))
(MOVEI N 1)
(UNBIND 2)
(SUBI Q 15)
(POPJ P)
)
(%PUT (QUOTE FIND-ALL-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (STRING-OR-SYMBOL)))
(%PUT (QUOTE FIND-ALL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE FIND-ALL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_PACKAGE-INIT EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("SYSTEM" :NICKNAMES ("SYS") "USER" *PACKAGE*)
(CODE-START)
(LABEL 1) (MOVE O3 (CONSTANT 2))
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(CALL MAKE-PACKAGE 3)
(MOVE O1 (CONSTANT 3))
(CALL MAKE-PACKAGE 1)
(MOVE O1 (CONSTANT 3))
(CALL FIND-PACKAGE 1)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(POPJ P)
)
(%PUT (QUOTE PACKAGE-INIT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE PACKAGE-INIT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE PACKAGE-INIT) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_GCTWA EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0 COMPILER::DELKEY COMPILER::NILKEY)
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVE O5 5 O1)
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O5 5 O1)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -4 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O2 -7 Q)
(CAME O2 -4 Q)
(JRST 8)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 -4 Q)
(MOVE O1 -6 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -5 Q)
(JUMPE O1 12)
(MOVE O2 (SPECIAL 1))
(CAMN O2 -5 Q)
(LABEL 12) (JRST 11)
(MOVE O2 (SPECIAL 2))
(CAME O2 -5 Q)
(JRST 13)
(MOVE O1 NIL)
(MOVEM O1 -5 Q)
(LABEL 13) (MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 O5)
(CALL FBOUNDP 1)
(JUMPN O1 17)
(MOVE O1 0 Q)
(CALL SYMBOL-PLIST 1)
(SKIPE NIL O1)
(LABEL 17) (JRST 15)
(MOVE O2 -9 Q)
(MOVE O1 0 Q)
(CALL UNINTERN 2)
(LABEL 15)
(LABEL 11) (MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE GCTWA) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PACKAGE)))
(%PUT (QUOTE GCTWA) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE GCTWA) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_MAKE-DO-SYMBOLS-CODE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(MAPHASH FUNCTION LAMBDA)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVEM O4 -4 Q)
(MOVEM O5 -3 Q)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 0 Q)
(CALL LIST* 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O3 -5 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O2 -4 Q)
(CALL LIST 2)
(SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE MAKE-DO-SYMBOLS-CODE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (VAR STR-VAR HASH-TABLE EXIT-FORM FORMS)))
(%PUT (QUOTE MAKE-DO-SYMBOLS-CODE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE MAKE-DO-SYMBOLS-CODE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DO-SYMBOLS) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Executes the Forms once for each symbol in accessible from the given
Package with Var bound to the current symbol."))
#_(LAP #0_DO-SYMBOLS MACRO
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2 "Macro ~S cannot be called with ~S args." DO-SYMBOLS *PACKAGE* PACKAGE-INTERNAL-SYMBOLS PROGN SETQ CONS GO WHEN OKSYMBOL PACKAGE-EXTERNAL-SYMBOLS CAR CDR PROG PACKAGE-USE-LIST IF NULL RETURN)
(CODE-START)
(LABEL 1) (ADDI Q 19)
(MOVEM O1 -18 Q)
(CALL LENGTH 1)
(MOVEM O1 -17 Q)
(MOVE O2 (CONSTANT 0))
(CALL < 2)
(JUMPE O1 4)
(MOVE O1 -18 Q)
(CALL LENGTH 1)
(CALL 1- 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(CALL ERROR 3)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -18 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -16 Q)
(MOVE O1 -18 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(SKIPN NIL 1 O1)
(JRST 7)
(MOVE O1 -18 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -15 Q)
(JRST 6)
(LABEL 7) (SKIPA)
(JRST 8)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -15 Q)
(LABEL 8)
(LABEL 6) (MOVE O1 -18 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 11)
(MOVE O1 -18 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -14 Q)
(JRST 10)
(LABEL 11) (SKIPA)
(JRST 12)
(MOVEM NIL -14 Q)
(LABEL 12)
(LABEL 10) (MOVE O1 -18 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -13 Q)
(CALL GENSYM 0)
(MOVEM O1 -12 Q)
(CALL GENSYM 0)
(MOVEM O1 -11 Q)
(CALL GENSYM 0)
(MOVEM O1 -10 Q)
(CALL GENSYM 0)
(MOVEM O1 -9 Q)
(MOVE O2 -15 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 -6 Q)
(MOVE O2 -15 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O3 -10 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 -10 Q)
(CALL LIST 3)
(MOVEM O1 -4 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 8))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -4 Q)
(CALL LIST 3)
(MOVEM O1 -5 Q)
(MOVE O3 -10 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -9 Q)
(CALL LIST 3)
(MOVEM O1 -3 Q)
(MOVE O3 -13 Q)
(MOVE O1 (CONSTANT 9))
(MOVE O2 -3 Q)
(CALL LIST* 3)
(CALL LIST 1)
(MOVE O5 O1)
(MOVE O1 -16 Q)
(MOVE O2 -9 Q)
(MOVE O3 -6 Q)
(MOVE O4 -5 Q)
(CALL LISP::MAKE-DO-SYMBOLS-CODE 5)
(MOVEM O1 -8 Q)
(MOVE O2 -11 Q)
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(MOVEM O1 -5 Q)
(MOVE O2 -11 Q)
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O3 -10 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 0 Q)
(CALL LIST 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 -10 Q)
(CALL LIST 3)
(MOVEM O1 -3 Q)
(MOVE O2 -11 Q)
(MOVE O1 (CONSTANT 13))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 -11 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 8))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -3 Q)
(MOVE O3 -2 Q)
(CALL LIST 4)
(MOVEM O1 -4 Q)
(MOVE O3 -10 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -9 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O3 -13 Q)
(MOVE O1 (CONSTANT 9))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL LIST 1)
(MOVE O5 O1)
(MOVE O1 -16 Q)
(MOVE O2 -9 Q)
(MOVE O3 -5 Q)
(MOVE O4 -4 Q)
(CALL LISP::MAKE-DO-SYMBOLS-CODE 5)
(MOVEM O1 -7 Q)
(MOVE O2 -10 Q)
(MOVE O1 -11 Q)
(CALL LIST 2)
(MOVEM O1 -6 Q)
(MOVE O2 -15 Q)
(MOVE O1 (CONSTANT 15))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -15 Q)
(CALL LIST 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 -11 Q)
(CALL LIST 3)
(MOVEM O1 -5 Q)
(MOVE O2 -11 Q)
(MOVE O1 (CONSTANT 17))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O2 -14 Q)
(MOVE O1 (CONSTANT 18))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 16))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O3 -7 Q)
(MOVE O1 -12 Q)
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(CALL APPEND 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 14))
(MOVE O2 -6 Q)
(MOVE O3 -5 Q)
(CALL LIST* 4)
(LABEL 5)
(LABEL 3) (SUBI Q 19)
(POPJ P)
)
(%PUT (QUOTE DO-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE ((VAR &OPTIONAL (PACKAGE (QUOTE *PACKAGE*)) RESULT-FORM) &REST FORMS)))
(%PUT (QUOTE DO-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE DO-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_OKSYMBOL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVEM O2 0 Q)
(SKIPE NIL 0 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(MOVE O2 0 O1)
(MOVE O1 -1 Q)
(CALL GETHASH 2)
(JUMPE O1 5)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 0 Q)
(MOVE O2 1 O1)
(MOVE O1 -1 Q)
(CALL LISP::OKSYMBOL 2)
(LABEL 6)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE OKSYMBOL) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PNAME HASHLIST)))
(%PUT (QUOTE OKSYMBOL) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE OKSYMBOL) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Executes the Forms once for each external symbol in the given Package with
Var bound to the current symbol."))
#_(LAP #0_DO-EXTERNAL-SYMBOLS MACRO
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2 "Macro ~S cannot be called with ~S args." DO-EXTERNAL-SYMBOLS *PACKAGE* PROG IGNORE PACKAGE-EXTERNAL-SYMBOLS RETURN)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(CALL LENGTH 1)
(MOVEM O1 -6 Q)
(MOVE O2 (CONSTANT 0))
(CALL < 2)
(JUMPE O1 4)
(MOVE O1 -7 Q)
(CALL LENGTH 1)
(CALL 1- 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(CALL ERROR 3)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(SKIPN NIL 1 O1)
(JRST 7)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(JRST 6)
(LABEL 7) (SKIPA)
(JRST 8)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -4 Q)
(LABEL 8)
(LABEL 6) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 11)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(JRST 10)
(LABEL 11) (SKIPA)
(JRST 12)
(MOVEM NIL -3 Q)
(LABEL 12)
(LABEL 10) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 5))
(MOVE O3 -1 Q)
(MOVE O4 0 Q)
(CALL LISP::MAKE-DO-SYMBOLS-CODE 5)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 NIL)
(CALL LIST* 3)
(LABEL 5)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE ((VAR &OPTIONAL (PACKAGE (QUOTE *PACKAGE*)) RESULT-FORM) &REST FORMS)))
(%PUT (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DO-ALL-SYMBOLS) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Executes the Forms once for each symbol in each package with Var bound
to the current symbol."))
#_(LAP #0_DO-ALL-SYMBOLS MACRO
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2 "Macro ~S cannot be called with ~S args." DO-ALL-SYMBOLS IGNORE PACKAGE-INTERNAL-SYMBOLS CAR GO PACKAGE-EXTERNAL-SYMBOLS PROGN SETQ CDR PROG ((LIST-ALL-PACKAGES)) IF NULL RETURN)
(CODE-START)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -15 Q)
(CALL LENGTH 1)
(MOVEM O1 -14 Q)
(MOVE O2 (CONSTANT 0))
(CALL < 2)
(JUMPE O1 4)
(MOVE O1 -15 Q)
(CALL LENGTH 1)
(CALL 1- 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(CALL ERROR 3)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -15 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -13 Q)
(MOVE O1 -15 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(SKIPN NIL 1 O1)
(JRST 7)
(MOVE O1 -15 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(JRST 6)
(LABEL 7) (SKIPA)
(JRST 8)
(MOVEM NIL -12 Q)
(LABEL 8)
(LABEL 6) (MOVE O1 -15 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -11 Q)
(CALL GENSYM 0)
(MOVEM O1 -10 Q)
(CALL GENSYM 0)
(MOVEM O1 -9 Q)
(CALL GENSYM 0)
(MOVEM O1 -8 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 -4 Q)
(MOVE O2 -9 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVEM O1 -3 Q)
(MOVE O5 -11 Q)
(MOVE O1 -13 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(CALL LISP::MAKE-DO-SYMBOLS-CODE 5)
(MOVEM O1 -7 Q)
(MOVE O2 -8 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(MOVEM O1 -3 Q)
(MOVE O2 -8 Q)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 9))
(MOVE O2 -8 Q)
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O2 -10 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O5 -11 Q)
(MOVE O1 -13 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 -3 Q)
(MOVE O4 -2 Q)
(CALL LISP::MAKE-DO-SYMBOLS-CODE 5)
(MOVEM O1 -6 Q)
(MOVE O5 (CONSTANT 11))
(MOVEM O5 -5 Q)
(MOVE O1 -8 Q)
(CALL LIST 1)
(MOVEM O1 -4 Q)
(MOVE O3 (CONSTANT 12))
(MOVE O1 (CONSTANT 9))
(MOVE O2 -8 Q)
(CALL LIST* 3)
(MOVEM O1 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -8 Q)
(MOVE O1 (CONSTANT 14))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 15))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 13))
(MOVE O2 0 Q)
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(CALL CONS 2)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(CALL APPEND 2)
(PUSH Q O1)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LIST* 6)
(LABEL 5)
(LABEL 3) (SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE DO-ALL-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE ((VAR &OPTIONAL RESULT-FORM) &REST FORMS)))
(%PUT (QUOTE DO-ALL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE DO-ALL-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DO-MOST-SYMBOLS) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Executes the Forms once for each symbol in each package with Var bound
to the current symbol. This is like DO-ALL-SYMBOLS except that it
ignores internal symbols in the LISP and COMPILER package."))
#_(LAP #0_DO-MOST-SYMBOLS MACRO
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2 "Macro ~S cannot be called with ~S args." DO-MOST-SYMBOLS IGNORE PACKAGE-INTERNAL-SYMBOLS CAR GO PACKAGE-EXTERNAL-SYMBOLS PROGN SETQ CDR PROG ((LIST-ALL-PACKAGES)) IF NULL RETURN UNLESS OR EQ (*LISP-PACKAGE*) ((FIND-PACKAGE "CLC")))
(CODE-START)
(LABEL 1) (ADDI Q 20)
(MOVEM O1 -19 Q)
(CALL LENGTH 1)
(MOVEM O1 -18 Q)
(MOVE O2 (CONSTANT 0))
(CALL < 2)
(JUMPE O1 4)
(MOVE O1 -19 Q)
(CALL LENGTH 1)
(CALL 1- 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(CALL ERROR 3)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -19 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -17 Q)
(MOVE O1 -19 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(SKIPN NIL 1 O1)
(JRST 7)
(MOVE O1 -19 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -16 Q)
(JRST 6)
(LABEL 7) (SKIPA)
(JRST 8)
(MOVEM NIL -16 Q)
(LABEL 8)
(LABEL 6) (MOVE O1 -19 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -15 Q)
(CALL GENSYM 0)
(MOVEM O1 -14 Q)
(CALL GENSYM 0)
(MOVEM O1 -13 Q)
(CALL GENSYM 0)
(MOVEM O1 -12 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 -8 Q)
(MOVE O2 -13 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVEM O1 -7 Q)
(MOVE O5 -15 Q)
(MOVE O1 -17 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 -8 Q)
(MOVE O4 -7 Q)
(CALL LISP::MAKE-DO-SYMBOLS-CODE 5)
(MOVEM O1 -11 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(MOVEM O1 -7 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 9))
(MOVE O2 -12 Q)
(CALL LIST 3)
(MOVEM O1 -5 Q)
(MOVE O2 -14 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -5 Q)
(CALL LIST 3)
(MOVEM O1 -6 Q)
(MOVE O5 -15 Q)
(MOVE O1 -17 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(CALL LISP::MAKE-DO-SYMBOLS-CODE 5)
(MOVEM O1 -10 Q)
(MOVE O5 (CONSTANT 11))
(MOVEM O5 -9 Q)
(MOVE O1 -12 Q)
(CALL LIST 1)
(MOVEM O1 -8 Q)
(MOVE O3 (CONSTANT 12))
(MOVE O1 (CONSTANT 9))
(MOVE O2 -12 Q)
(CALL LIST* 3)
(MOVEM O1 -7 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 14))
(CALL LIST 2)
(MOVEM O1 -4 Q)
(MOVE O2 -16 Q)
(MOVE O1 (CONSTANT 15))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 13))
(MOVE O2 -4 Q)
(CALL LIST 3)
(MOVEM O1 -5 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O3 (CONSTANT 19))
(MOVE O1 (CONSTANT 18))
(MOVE O2 -1 Q)
(CALL LIST* 3)
(MOVEM O1 -2 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O3 (CONSTANT 20))
(MOVE O1 (CONSTANT 18))
(MOVE O2 0 Q)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 17))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVEM O1 -3 Q)
(MOVE O3 -11 Q)
(MOVE O1 (CONSTANT 16))
(MOVE O2 -3 Q)
(CALL LIST* 3)
(PUSH Q O1)
(PUSH Q -14 Q)
(PUSH Q -12 Q)
(MOVE O1 -12 Q)
(MOVE O2 -11 Q)
(MOVE O3 -10 Q)
(MOVE O4 -9 Q)
(MOVE O5 -8 Q)
(CALL LIST* 8)
(LABEL 5)
(LABEL 3) (SUBI Q 20)
(POPJ P)
)
(%PUT (QUOTE DO-MOST-SYMBOLS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE ((VAR &OPTIONAL RESULT-FORM) &REST FORMS)))
(%PUT (QUOTE DO-MOST-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE DO-MOST-SYMBOLS) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_BRIEFLY-DESCRIBE-SYMBOL EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(", value: " *STANDARD-OUTPUT* 0 ", special form: " ", macro: " ", function: " *PACKAGE* #\.)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(CALL FRESH-LINE 0)
(MOVE O1 -2 Q)
(CALL PRIN1 1)
(MOVE O1 -2 Q)
(CALL BOUNDP 1)
(JUMPE O1 4)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 0))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 2))
(CALL LISP::%SP-WRITE-STRING 4)
(MOVE O1 -2 Q)
(CALL SYMBOL-VALUE 1)
(CALL PRIN1 1)
(LABEL 4) (MOVE O1 -2 Q)
(CALL FBOUNDP 1)
(JUMPE O1 7)
(MOVE O1 -2 Q)
(CALL SPECIAL-FORM-P 1)
(JUMPE O1 9)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -1 Q)
(JRST 8)
(LABEL 9) (MOVE O1 -2 Q)
(CALL MACRO-FUNCTION 1)
(JUMPE O1 10)
(MOVE O5 (CONSTANT 4))
(MOVEM O5 -1 Q)
(JRST 8)
(LABEL 10) (SKIPA)
(JRST 11)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -1 Q)
(LABEL 11)
(LABEL 8) (MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(MOVE O4 NIL)
(MOVE O1 -1 Q)
(MOVE O2 O5)
(MOVE O3 (CONSTANT 2))
(CALL LISP::%SP-WRITE-STRING 4)
(MOVE O1 -2 Q)
(CALL SYMBOL-PACKAGE 1)
(MOVEM O1 0 Q)
(SPEC-BIND (SPECIAL 6))
(MOVEM O1 (SPECIAL 6))
(MOVE O1 -2 Q)
(CALL LISP::DESC-ARGLIST 1)
(CALL PRIN1 1)
(UNBIND 1)
(LABEL 7) (MOVE O1 (CONSTANT 7))
(CALL WRITE-CHAR 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE BRIEFLY-DESCRIBE-SYMBOL) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SYMBOL)))
(%PUT (QUOTE BRIEFLY-DESCRIBE-SYMBOL) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE BRIEFLY-DESCRIBE-SYMBOL) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE APROPOS) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Briefly describe all symbols wich contain the specified String.
If Package is supplied then only describe symbols present in that
package. If no package is given (or is NIL) then search all
packages (except internal symbols of LISP and COMPILER package). If
Package is T then search all symbols.
If Predicate is specified, only symbols for which the predicate
(given one argument, the symbol) returns non-nil are described."))
#_(LAP #0_APROPOS EXPR
(ENTRY-POINTS (2-FEW 1 3 4 5 6 7) REST)
#0_(:PREDICATE PREDICATE (:PREDICATE) SIMPLE-STRING T (OR SYMBOL STRING) PACKAGE "~s isn't a package" *LISP-PACKAGE* "CLC" 0 COMPILER::DELKEY COMPILER::NILKEY)
(CODE-START)
(LABEL 1) (MOVE O2 NIL)
(LABEL 3) (MOVE O3 NIL)
(JRST 2)
(LABEL 4) (MOVEI W2 1)
(ICALL REST3)
(JRST 2)
(LABEL 5) (MOVEI W2 2)
(ICALL REST4)
(JRST 2)
(LABEL 6) (MOVEI W2 3)
(ICALL REST5)
(JRST 2)
(LABEL 7) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 2) (ADDI Q 20)
(MOVEM O1 -19 Q)
(MOVEM O2 -18 Q)
(MOVEM O3 -17 Q)
(MOVE O2 O3)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 9)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O5 -17 Q)
(MOVEM O5 -16 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -19 Q)
(CALL STRINGP 1)
(JUMPE O1 11)
(MOVE O5 -19 Q)
(MOVEM O5 -14 Q)
(JRST 12)
(LABEL 11) (MOVE O1 -19 Q)
(CALL STRING 1)
(MOVEM O1 -14 Q)
(LABEL 12) (MOVE O2 (CONSTANT 3))
(MOVE O1 -14 Q)
(CALL COERCE 2)
(MOVEM O1 -15 Q)
(SKIPE NIL -18 Q)
(JRST 14)
(MOVEM NIL -14 Q)
(JRST 13)
(LABEL 14) (MOVE O2 (CONSTANT 4))
(CAME O2 -18 Q)
(JRST 15)
(MOVE O5 (CONSTANT 4))
(MOVEM O5 -14 Q)
(JRST 13)
(LABEL 15) (SKIPA)
(JRST 16)
(MOVE O5 -18 Q)
(MOVEM O5 -13 Q)
(MOVE O2 (CONSTANT 5))
(MOVE O1 O5)
(CALL TYPEP 2)
(JUMPE O1 18)
(MOVE O1 -18 Q)
(CALL FIND-PACKAGE 1)
(MOVEM O1 -14 Q)
(JRST 17)
(LABEL 18) (MOVE O2 (CONSTANT 6))
(MOVE O1 -13 Q)
(CALL TYPEP 2)
(JUMPE O1 19)
(MOVE O5 -18 Q)
(MOVEM O5 -14 Q)
(JRST 17)
(LABEL 19) (SKIPA)
(JRST 20)
(MOVE O2 -18 Q)
(MOVE O1 (CONSTANT 7))
(CALL ERROR 2)
(MOVEM O1 -14 Q)
(LABEL 20)
(LABEL 17)
(LABEL 16)
(LABEL 13) (SKIPE NIL -14 Q)
(JRST 24)
(MOVEM NIL -13 Q)
(CALL LIST-ALL-PACKAGES 0)
(MOVEM O1 -13 Q)
(LABEL 29) (SKIPE NIL -13 Q)
(JRST 31)
(JRST 25)
(LABEL 31) (MOVE O1 -13 Q)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O2 (SPECIAL 8))
(CAMN O2 -12 Q)
(JRST 35)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O1 (CONSTANT 9))
(CALL FIND-PACKAGE 1)
(CAMN 5 -12 Q)
(LABEL 35) (JRST 34)
(MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 40) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 41)
(JRST 36)
(LABEL 41) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 45)
(MOVE O2 (SPECIAL 11))
(CAMN O2 -8 Q)
(LABEL 45) (JRST 44)
(MOVE O2 (SPECIAL 12))
(CAME O2 -8 Q)
(JRST 46)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 46) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 50)
(SKIPN NIL (SPECIAL 1))
(JRST1 52)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 52)
(LABEL 50) (JRST 48)
(MOVE O1 -2 Q)
(CALL LISP::BRIEFLY-DESCRIBE-SYMBOL 1)
(LABEL 48)
(LABEL 44) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 40)
(LABEL 36)
(LABEL 34) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 6 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 59) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 60)
(JRST 55)
(LABEL 60) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 64)
(MOVE O2 (SPECIAL 11))
(CAMN O2 -8 Q)
(LABEL 64) (JRST 63)
(MOVE O2 (SPECIAL 12))
(CAME O2 -8 Q)
(JRST 65)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 65) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 69)
(SKIPN NIL (SPECIAL 1))
(JRST1 71)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 71)
(LABEL 69) (JRST 67)
(MOVE O1 -2 Q)
(CALL LISP::BRIEFLY-DESCRIBE-SYMBOL 1)
(LABEL 67)
(LABEL 63) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 59)
(LABEL 55) (MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEM O1 -13 Q)
(JRST 29)
(LABEL 25) (JRST 23)
(LABEL 24) (MOVE O2 (CONSTANT 4))
(CAME O2 -14 Q)
(JRST 73)
(MOVEM NIL -13 Q)
(CALL LIST-ALL-PACKAGES 0)
(MOVEM O1 -13 Q)
(LABEL 78) (SKIPE NIL -13 Q)
(JRST 80)
(JRST 74)
(LABEL 80) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 86) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 87)
(JRST 82)
(LABEL 87) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 91)
(MOVE O2 (SPECIAL 11))
(CAMN O2 -8 Q)
(LABEL 91) (JRST 90)
(MOVE O2 (SPECIAL 12))
(CAME O2 -8 Q)
(JRST 92)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 92) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 96)
(SKIPN NIL (SPECIAL 1))
(JRST1 98)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 98)
(LABEL 96) (JRST 94)
(MOVE O1 -2 Q)
(CALL LISP::BRIEFLY-DESCRIBE-SYMBOL 1)
(LABEL 94)
(LABEL 90) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 86)
(LABEL 82) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 6 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 104) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 105)
(JRST 100)
(LABEL 105) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 109)
(MOVE O2 (SPECIAL 11))
(CAMN O2 -8 Q)
(LABEL 109) (JRST 108)
(MOVE O2 (SPECIAL 12))
(CAME O2 -8 Q)
(JRST 110)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 110) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 114)
(SKIPN NIL (SPECIAL 1))
(JRST1 116)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 116)
(LABEL 114) (JRST 112)
(MOVE O1 -2 Q)
(CALL LISP::BRIEFLY-DESCRIBE-SYMBOL 1)
(LABEL 112)
(LABEL 108) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 104)
(LABEL 100) (MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEM O1 -13 Q)
(JRST 78)
(LABEL 74) (JRST 23)
(LABEL 73) (SKIPA)
(JRST 118)
(MOVEM NIL -13 Q)
(MOVEM NIL -12 Q)
(MOVE O1 -14 Q)
(MOVE O2 3 O1)
(CALL CONS 2)
(MOVEM O1 -13 Q)
(MOVE O1 -14 Q)
(MOVE O5 5 O1)
(MOVEM O5 -10 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O5 5 O1)
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 128) (MOVE O2 -9 Q)
(CAME O2 -5 Q)
(JRST 129)
(JRST 124)
(LABEL 129) (MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JUMPE O1 133)
(MOVE O2 (SPECIAL 11))
(CAMN O2 -7 Q)
(LABEL 133) (JRST 132)
(MOVE O2 (SPECIAL 12))
(CAME O2 -7 Q)
(JRST 134)
(MOVE O1 NIL)
(MOVEM O1 -7 Q)
(LABEL 134) (MOVE O5 -7 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -12 Q)
(MOVE O1 -2 Q)
(CALL LISP::OKSYMBOL 2)
(JUMPE O1 137)
(MOVE O1 -1 Q)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 140)
(SKIPN NIL (SPECIAL 1))
(JRST1 142)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 142)
(LABEL 140) (JRST 138)
(MOVE O1 -1 Q)
(CALL LISP::BRIEFLY-DESCRIBE-SYMBOL 1)
(LABEL 138)
(LABEL 137)
(LABEL 132) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 128)
(LABEL 124) (MOVE O1 -14 Q)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O2 -12 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(LABEL 123) (SKIPE NIL -13 Q)
(JRST 145)
(JRST 119)
(LABEL 145) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 6 O1)
(MOVEM O5 -10 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O5 5 O1)
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 151) (MOVE O2 -9 Q)
(CAME O2 -5 Q)
(JRST 152)
(JRST 147)
(LABEL 152) (MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JUMPE O1 156)
(MOVE O2 (SPECIAL 11))
(CAMN O2 -7 Q)
(LABEL 156) (JRST 155)
(MOVE O2 (SPECIAL 12))
(CAME O2 -7 Q)
(JRST 157)
(MOVE O1 NIL)
(MOVEM O1 -7 Q)
(LABEL 157) (MOVE O5 -7 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -12 Q)
(MOVE O1 -2 Q)
(CALL LISP::OKSYMBOL 2)
(JUMPE O1 160)
(MOVE O1 -1 Q)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 163)
(SKIPN NIL (SPECIAL 1))
(JRST1 165)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 165)
(LABEL 163) (JRST 161)
(MOVE O1 -1 Q)
(CALL LISP::BRIEFLY-DESCRIBE-SYMBOL 1)
(LABEL 161)
(LABEL 160)
(LABEL 155) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 151)
(LABEL 147) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O2 -12 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEM O1 -13 Q)
(JRST 123)
(LABEL 119)
(LABEL 118)
(LABEL 23) (SETZB O1 N)
(UNBIND 1)
(SUBI Q 20)
(POPJ P)
)
(%PUT (QUOTE APROPOS) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (STRING &OPTIONAL PACKAGE &KEY PREDICATE)))
(%PUT (QUOTE APROPOS) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE APROPOS) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE APROPOS-LIST) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Identical to Apropos, except that it returns a list of the symbols
found instead of describing them.
If Predicate is specified, only symbols for which the predicate
(given one argument, the symbol) returns non-nil are returned."))
#_(LAP #0_APROPOS-LIST EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SIMPLE-STRING T (OR SYMBOL STRING) PACKAGE "~s isn't a package" *LISP-PACKAGE* "CLC" 0 COMPILER::DELKEY COMPILER::NILKEY PREDICATE)
(CODE-START)
(LABEL 1) (MOVE O2 NIL)
(LABEL 2) (ADDI Q 20)
(MOVEM O1 -19 Q)
(MOVEM O2 -18 Q)
(CALL STRINGP 1)
(JUMPE O1 4)
(MOVE O5 -19 Q)
(MOVEM O5 -16 Q)
(JRST 5)
(LABEL 4) (MOVE O1 -19 Q)
(CALL STRING 1)
(MOVEM O1 -16 Q)
(LABEL 5) (MOVE O2 (CONSTANT 0))
(MOVE O1 -16 Q)
(CALL COERCE 2)
(MOVEM O1 -17 Q)
(SKIPE NIL -18 Q)
(JRST 7)
(MOVEM NIL -16 Q)
(JRST 6)
(LABEL 7) (MOVE O2 (CONSTANT 1))
(CAME O2 -18 Q)
(JRST 8)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -16 Q)
(JRST 6)
(LABEL 8) (SKIPA)
(JRST 9)
(MOVE O5 -18 Q)
(MOVEM O5 -14 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 O5)
(CALL TYPEP 2)
(JUMPE O1 11)
(MOVE O1 -18 Q)
(CALL FIND-PACKAGE 1)
(MOVEM O1 -16 Q)
(JRST 10)
(LABEL 11) (MOVE O2 (CONSTANT 3))
(MOVE O1 -14 Q)
(CALL TYPEP 2)
(JUMPE O1 12)
(MOVE O5 -18 Q)
(MOVEM O5 -16 Q)
(JRST 10)
(LABEL 12) (SKIPA)
(JRST 13)
(MOVE O2 -18 Q)
(MOVE O1 (CONSTANT 4))
(CALL ERROR 2)
(MOVEM O1 -16 Q)
(LABEL 13)
(LABEL 10)
(LABEL 9)
(LABEL 6) (MOVE O5 NIL)
(MOVEM O5 -15 Q)
(SKIPE NIL -16 Q)
(JRST 17)
(MOVEM NIL -13 Q)
(CALL LIST-ALL-PACKAGES 0)
(MOVEM O1 -13 Q)
(LABEL 22) (SKIPE NIL -13 Q)
(JRST 24)
(JRST 18)
(LABEL 24) (MOVE O1 -13 Q)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O2 (SPECIAL 5))
(CAMN O2 -12 Q)
(JRST 28)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O1 (CONSTANT 6))
(CALL FIND-PACKAGE 1)
(CAMN 5 -12 Q)
(LABEL 28) (JRST 27)
(MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 33) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 34)
(JRST 29)
(LABEL 34) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 38)
(MOVE O2 (SPECIAL 8))
(CAMN O2 -8 Q)
(LABEL 38) (JRST 37)
(MOVE O2 (SPECIAL 9))
(CAME O2 -8 Q)
(JRST 39)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 39) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -17 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 43)
(SKIPN NIL (SPECIAL 10))
(JRST1 45)
(MOVE O5 (SPECIAL 10))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 45)
(LABEL 43) (JRST 41)
(MOVE O2 -15 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -15 Q)
(LABEL 41)
(LABEL 37) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 33)
(LABEL 29)
(LABEL 27) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 6 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 52) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 53)
(JRST 48)
(LABEL 53) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 57)
(MOVE O2 (SPECIAL 8))
(CAMN O2 -8 Q)
(LABEL 57) (JRST 56)
(MOVE O2 (SPECIAL 9))
(CAME O2 -8 Q)
(JRST 58)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 58) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -17 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 62)
(SKIPN NIL (SPECIAL 10))
(JRST1 64)
(MOVE O5 (SPECIAL 10))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 64)
(LABEL 62) (JRST 60)
(MOVE O2 -15 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -15 Q)
(LABEL 60)
(LABEL 56) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 52)
(LABEL 48) (MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEM O1 -13 Q)
(JRST 22)
(LABEL 18) (JRST 16)
(LABEL 17) (MOVE O2 (CONSTANT 1))
(CAME O2 -16 Q)
(JRST 66)
(MOVEM NIL -13 Q)
(CALL LIST-ALL-PACKAGES 0)
(MOVEM O1 -13 Q)
(LABEL 71) (SKIPE NIL -13 Q)
(JRST 73)
(JRST 67)
(LABEL 73) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 79) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 80)
(JRST 75)
(LABEL 80) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 84)
(MOVE O2 (SPECIAL 8))
(CAMN O2 -8 Q)
(LABEL 84) (JRST 83)
(MOVE O2 (SPECIAL 9))
(CAME O2 -8 Q)
(JRST 85)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 85) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -17 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 89)
(SKIPN NIL (SPECIAL 10))
(JRST1 91)
(MOVE O5 (SPECIAL 10))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 91)
(LABEL 89) (JRST 87)
(MOVE O2 -15 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -15 Q)
(LABEL 87)
(LABEL 83) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 79)
(LABEL 75) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 6 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O5 5 O1)
(MOVEM O5 -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -6 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(LABEL 97) (MOVE O2 -10 Q)
(CAME O2 -6 Q)
(JRST 98)
(JRST 93)
(LABEL 98) (MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(JUMPE O1 102)
(MOVE O2 (SPECIAL 8))
(CAMN O2 -8 Q)
(LABEL 102) (JRST 101)
(MOVE O2 (SPECIAL 9))
(CAME O2 -8 Q)
(JRST 103)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(LABEL 103) (MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -9 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -17 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 107)
(SKIPN NIL (SPECIAL 10))
(JRST1 109)
(MOVE O5 (SPECIAL 10))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 109)
(LABEL 107) (JRST 105)
(MOVE O2 -15 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -15 Q)
(LABEL 105)
(LABEL 101) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 97)
(LABEL 93) (MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEM O1 -13 Q)
(JRST 71)
(LABEL 67) (JRST 16)
(LABEL 66) (SKIPA)
(JRST 111)
(MOVEM NIL -13 Q)
(MOVEM NIL -12 Q)
(MOVE O1 -16 Q)
(MOVE O2 3 O1)
(CALL CONS 2)
(MOVEM O1 -13 Q)
(MOVE O1 -16 Q)
(MOVE O5 5 O1)
(MOVEM O5 -10 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O5 5 O1)
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 121) (MOVE O2 -9 Q)
(CAME O2 -5 Q)
(JRST 122)
(JRST 117)
(LABEL 122) (MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JUMPE O1 126)
(MOVE O2 (SPECIAL 8))
(CAMN O2 -7 Q)
(LABEL 126) (JRST 125)
(MOVE O2 (SPECIAL 9))
(CAME O2 -7 Q)
(JRST 127)
(MOVE O1 NIL)
(MOVEM O1 -7 Q)
(LABEL 127) (MOVE O5 -7 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -12 Q)
(MOVE O1 -2 Q)
(CALL LISP::OKSYMBOL 2)
(JUMPE O1 130)
(MOVE O1 -1 Q)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -17 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 133)
(SKIPN NIL (SPECIAL 10))
(JRST1 135)
(MOVE O5 (SPECIAL 10))
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 135)
(LABEL 133) (JRST 131)
(MOVE O2 -15 Q)
(MOVE O1 -1 Q)
(CALL CONS 2)
(MOVEM O1 -15 Q)
(LABEL 131)
(LABEL 130)
(LABEL 125) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 121)
(LABEL 117) (MOVE O1 -16 Q)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O2 -12 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(LABEL 116) (SKIPE NIL -13 Q)
(JRST 138)
(JRST 112)
(LABEL 138) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 6 O1)
(MOVEM O5 -10 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O5 5 O1)
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 144) (MOVE O2 -9 Q)
(CAME O2 -5 Q)
(JRST 145)
(JRST 140)
(LABEL 145) (MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JUMPE O1 149)
(MOVE O2 (SPECIAL 8))
(CAMN O2 -7 Q)
(LABEL 149) (JRST 148)
(MOVE O2 (SPECIAL 9))
(CAME O2 -7 Q)
(JRST 150)
(MOVE O1 NIL)
(MOVEM O1 -7 Q)
(LABEL 150) (MOVE O5 -7 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -12 Q)
(MOVE O1 -2 Q)
(CALL LISP::OKSYMBOL 2)
(JUMPE O1 153)
(MOVE O1 -1 Q)
(CALL SYMBOL-NAME 1)
(MOVE O2 O1)
(MOVE O1 -17 Q)
(CALL LISP::STR-SEARCH 2)
(JUMPE O1 156)
(SKIPN NIL (SPECIAL 10))
(JRST1 158)
(MOVE O5 (SPECIAL 10))
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVE O6 O5)
(FCALL 1)
(SKIPN NIL O1)
(LABEL 158)
(LABEL 156) (JRST 154)
(MOVE O2 -15 Q)
(MOVE O1 -1 Q)
(CALL CONS 2)
(MOVEM O1 -15 Q)
(LABEL 154)
(LABEL 153)
(LABEL 148) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 144)
(LABEL 140) (MOVE O1 -13 Q)
(MOVE O1 0 O1)
(MOVE O5 5 O1)
(MOVEM O5 -11 Q)
(MOVE O2 -12 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEM O1 -13 Q)
(JRST 116)
(LABEL 112)
(LABEL 111)
(LABEL 16) (MOVE O1 -15 Q)
(MOVEI N 1)
(SUBI Q 20)
(POPJ P)
)
(%PUT (QUOTE APROPOS-LIST) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (STRING &OPTIONAL PACKAGE)))
(%PUT (QUOTE APROPOS-LIST) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE APROPOS-LIST) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_STR-SEARCH EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0 T)
(CODE-START)
(LABEL 1) (ADDI Q 13)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -9 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -10 Q)
(MOVE O1 -9 Q)
(CALL - 2)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 -5 Q)
(MOVEM NIL -4 Q)
(LABEL 7) (MOVE O2 -5 Q)
(MOVE O1 -6 Q)
(CALL > 2)
(JUMPE O1 8)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(LABEL 16) (MOVE O2 -9 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 17)
(JRST1 12)
(LABEL 17) (MOVE O2 -3 Q)
(MOVE O1 -11 Q)
(CALL SCHAR 2)
(CALL LISP::EQUAL-CHAR-INT 1)
(MOVEM O1 -1 Q)
(MOVE O2 -2 Q)
(MOVE O1 -12 Q)
(CALL SCHAR 2)
(CALL LISP::EQUAL-CHAR-INT 1)
(CAMN 5 -1 Q)
(JRST 19)
(JRST 12)
(JRST1 12)
(LABEL 19) (MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 16)
(LABEL 12) (JRST 10)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 3)
(LABEL 10) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 7)
(LABEL 3) (SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE STR-SEARCH) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE1 SEQUENCE2)))
(%PUT (QUOTE STR-SEARCH) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>PACKAGE.CLISP.37") (GET (QUOTE STR-SEARCH) (QUOTE %SOURCE-DOCUMENTATION))))