Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/clc.lap
There are no other files named clc.lap in the archive.
;;; CLC vP.U.V.1(2) compiling CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105
(IN-PACKAGE "COMPILER")
(SHADOW (QUOTE (LISP:OPTIMIZE)))
(DEFVAR COMPILER-VERSION "P.U.V.1(2)")
(DEFVAR *LAP-PRETTY-PRINT* T "If NIL, prints the lap code on one line with just one space between the
instructions. Otherwise (the default), it formats the code prettily.
Setting it to NIL saves disk, though.")
(DEFVAR *EVAL-WHEN-LOAD* T "If non-null, sys that any forms encountered by the compiler are to appear
in the output file, compiled if possible, for execution at load time.
Initially T, modified by EVAL-WHEN forms.")
(DEFVAR *EVAL-WHEN-COMPILE* NIL "If non-null, says that any forms encountered by the compiler are to be
executed in the compiler's Lisp environment. Initially NIL, modified by
EVAL-WHEN forms.")
(DEFVAR COMPILE-FORMS-LIST (QUOTE (PROG DO DO* LET LET* FLET LABELS)) "compile random forms beginning with these atoms")
(DEFVAR *NTHCDR-OPEN-CODE-LIMIT* 10 "Maximum size NTHCDR or NTH to open-code as CAR and CDR forms.")
(DEFVAR *VERBOSE* T "If nil, only true error messages and warnings go to the error stream.
If non-null, prints a message as each function is compiled.")
(DEFVAR *COMPILE-TO-LISP* NIL "If non-null, stuff compiled definitions into the compiler's own Lisp
environment.")
(DEFVAR *CHECK-KEYWORDS-AT-RUNTIME* T "If non-null, compiled code with &key arguments will check at runtime
for unknown keywords. This facility is normally left on.")
(DEFVAR *ALL-NUMBERS-ARE-FIXNUMS* T "If non-null, the user guarantees that all arithmetic can be
assumed fixnum. Produces faster code, but may be dangerous.")
(DEFVAR *CLC-INPUT-STREAM* NIL)
(DEFVAR *CLC-FASL-STREAM* NIL)
(DEFVAR *CLC-LAP-STREAM* NIL)
(DEFVAR *CLC-ERR-STREAM* NIL)
(DEFVAR *COMPILER-IS-READING* NIL "This is true only if we are actually doing a read from
*clc-input-stream*. #, (in the reader) looks at this.")
(DEFVAR *SHARP-COMMA-SEEN* NIL "T if we have seen a sharp comma while *compiler-is-reading* is T. Reset
before a new form is read in.")
(DEFCONSTANT HOST-MACHINE (QUOTE DECSYSTEM-20) "The type of machine on which the compiler is running.")
(DEFCONSTANT HOST-SYSTEM (QUOTE TOPS-20) "The operating system on which the compiler is running.")
(DEFCONSTANT TARGET-MACHINE (QUOTE DECSYSTEM-20) "The type of machine that the code is being compiled for.")
(DEFCONSTANT TARGET-SYSTEM (QUOTE TOPS-20) "The operating system that the code is being compiled for.")
(DEFCONSTANT TYPE-NAMES (QUOTE (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO RATIONAL READTABLE SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING STRING-CHAR SYMBOL T VECTOR)))
(DEFVAR FUNCTIONS-WITH-ERRORS NIL "A list of all functions that did not compile properly due to errors in
the code.")
(DEFVAR ERROR-COUNT 0 "The number of errors generated during this compilation.")
(DEFVAR WARNING-COUNT 0 "The number of warnings generated during this compilation.")
(DEFVAR UNKNOWN-FUNCTIONS NIL "List of functions called but not yet seen and not built-in. The user
is informed of any function still on this list at the end of a file
compilation.")
(DEFVAR UNKNOWN-FREE-VARS NIL "A list of all variables referenced free in the compilation, but not
bound or declared special anywhere. These are assumed to be special
variables, but are listed in a warning message at the end of the
compilation.")
(DEFVAR INPUT-NAMESTRING NIL "Truename of file being compiled, as a string.")
(DEFVAR FUNCTION-NAME NIL "Holds a symbol that names the function currently being compiled,
or nil if between functions.")
(DEFVAR FUNCTION-TYPE (QUOTE EXPR) "The type of function being compiled: Expr, Macro, Closure, or One-Shot.")
(DEFVAR FUNCTION-ARGLIST NIL "The arglist of the function being compiled.")
(DEFVAR LAP-CODE NIL "A list of the Lap code being generated for the current function. The
first entry on this list is the marker (CODE-START), which gives us a
cons cell which can be destructively modified. Lap-code is kept in
reversed form while being built, then is nreversed for optimization.")
(DEFVAR *CONTOUR-POINTER* NIL)
(DEFVAR *QREF* 0 "0 or negative, tells how far off the nominal alloc level Q really is.")
(DEFVAR CONSTANTS-LIST NIL "A list of all the constants and specials needed by the function being
defined. Built during pass 2. Kept in reversed form.")
(DEFVAR NCONSTANTS 0 "The number of entries currently on CONSTANTS-LIST.")
(DEFVAR *ENCLOSES* NIL "This func contains a closure, and thus must generate closure vectors.")
(DEFVAR *CVH* NIL "Stack location containing the closure vector for this contour.")
(DEFVAR *REACH* 0 "Indicates how deep we are nested in FUNCTION forms. A top-level defun
starts at 0.")
(DEFVAR *GRASP* 0 "Indicates how far back up the chain of nested functions a closure
has referenced closed variables.")
(DEFVAR *HAND* 0 "Like *reach*, but indicates the lexical countour level.")
(DEFVAR MAX-ARGS 0 "The maximum number of args for the current function, excluding any &rest
or &key args.")
(DEFVAR MIN-ARGS 0 "The minimum number of args for the current function.")
(DEFVAR VARS-GRIPED-ABOUT NIL "When we gripe about an unknown var being assumed special, put it on this
list so that we don't gripe again while compiling the same function.")
(DEFVAR ENTRY-POINTS NIL "A list of tags, that tells where to
enter the code for various numbers of optional arguments. Built in
reversed order, nreversed before being written out.")
(DEFVAR *RESTP* NIL "T if there is an &rest var in this lambda list.")
(DEFVAR FF-CODE NIL "A list of instructions that must be executed at certain entry points to a
function. Used by CG-Lambda-List and related functions.")
(DEFVAR VARS-UPSTREAM NIL "An a-list of variables appearing in the arglist so far, paired with the
names of the locations they showed up in (ie register names, etc).
Used to compile 'easy' forms which use the values direct.")
(DEFVAR SKIP-TAG NIL "A tag used to skip around frame-completion code in the the lambda-list
processing machinery.")
(DEFVAR OLD-VENV NIL "Records *VENV* as it was upon entry to a binding contour.")
(DEFVAR OLD-FENV NIL "Records *FENV* as it was upon entry to a binding contour.")
(DEFVAR *NOTINLINES* NIL "list of functions declared notinline")
(DEFVAR IGNORES NIL "List of lexical vars to be ignored by this function. Ignored vars do
not complain if nobody references them.")
(DEFVAR NEW-SPECIALS NIL "Rebound in each binding contour to record which vars are locally declared
special.")
(DEFVAR NEW-TYPE-DECLS NIL "Rebound in each binding contour to record local type declarations until
they find their way into the *VENV* entry.")
(DEFVAR *INTERNAL-FUNCTIONS* NIL "When COMPILE is called for value, this var is used to accumulate
the defns of the generated subfunctions.")
(DEFVAR *NARGS-ON-STACK* 0 "Number of args passed to the function that were put on the stack. Ie,
the number of total args minus 5.")
(DEFVAR *TEMPS* NIL "A list of the gensyms that name the stack locations used by the function")
(DEFVAR *FREE-TEMPS* NIL "A tail of *temps*, representing those locations available at this point")
(DEFVAR *XSTEMPS* NIL "a list of temps to be spliced into *temps* when all function
args have been processed. It is used to denote the locations that
args passed in the regs (and supplied-p args) will be put into.")
(DEFVAR *VENV* NIL)
#_(LAP #0_MAKE-VENV EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(8 1 VENV *REACH* *CVH*)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAKE-ARRAY 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 1))
(MOVEM O2 -2 O1)
(MOVE O2 (CONSTANT 2))
(MOVEM O2 0 O1)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -2 Q)
(MOVEM O2 5 O1)
(MOVE O2 -3 Q)
(MOVEM O2 1 O1)
(MOVE O2 (SPECIAL 3))
(MOVEM O2 2 O1)
(MOVE O2 NIL)
(MOVEM O2 3 O1)
(MOVEM O2 4 O1)
(MOVE O2 (SPECIAL 4))
(MOVEM O2 6 O1)
(MOVE O2 NIL)
(MOVEM O2 7 O1)
(MOVEI N 1)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE MAKE-VENV) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (SPECIALP HOME)))
(%PUT (QUOTE MAKE-VENV) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MAKE-VENV) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VENV-CVX 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 VENV-CVX) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE VENV-CVX) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-CVX) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VENV-CVH 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 VENV-CVH) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE VENV-CVH) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-CVH) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VENV-HOME 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 VENV-HOME) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE VENV-HOME) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-HOME) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VENV-DECLARED-TYPE 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 VENV-DECLARED-TYPE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE VENV-DECLARED-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-DECLARED-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VENV-USEDP 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 VENV-USEDP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE VENV-USEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-USEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VENV-REACH 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 VENV-REACH) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE VENV-REACH) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-REACH) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VENV-SPECIALP 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 VENV-SPECIALP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE VENV-SPECIALP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-SPECIALP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(SETF (SYMBOL-FUNCTION (QUOTE COPY-VENV)) (FUNCTION LISP::BUILT-IN-COPIER))
#_(LAP #0_VENV-P EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 VENV 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 VENV-P) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::THING)))
(%PUT (QUOTE VENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(REMPROP (QUOTE VENV-SPECIALP) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE VENV-SPECIALP) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 1 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE VENV-SPECIALP) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE VENV-SPECIALP)
(REMPROP (QUOTE VENV-REACH) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE VENV-REACH) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 2 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE VENV-REACH) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE VENV-REACH)
(REMPROP (QUOTE VENV-USEDP) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE VENV-USEDP) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 3 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE VENV-USEDP) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE VENV-USEDP)
(REMPROP (QUOTE VENV-DECLARED-TYPE) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE VENV-DECLARED-TYPE) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 4 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE VENV-DECLARED-TYPE) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE VENV-DECLARED-TYPE)
(REMPROP (QUOTE VENV-HOME) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE VENV-HOME) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 5 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE VENV-HOME) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE VENV-HOME)
(REMPROP (QUOTE VENV-CVH) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE VENV-CVH) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 6 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE VENV-CVH) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE VENV-CVH)
(REMPROP (QUOTE VENV-CVX) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE VENV-CVX) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 7 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE VENV-CVX) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE VENV-CVX)
(%PUT (QUOTE VENV) (QUOTE LISP::DEFSTRUCT-DESCRIPTION) (QUOTE #(VENV VECTOR ((:CONSTRUCTOR MAKE-VENV (SPECIALP HOME))) 8 VENV- (MAKE-VENV (SPECIALP HOME)) (VENV-CVX VENV-CVH VENV-HOME VENV-DECLARED-TYPE VENV-USEDP VENV-REACH VENV-SPECIALP) (CVX CVH HOME DECLARED-TYPE USEDP REACH SPECIALP) (NIL *CVH* NIL NIL NIL *REACH* NIL) (NIL NIL NIL NIL NIL NIL NIL) ((VENV-CVX . 7) (VENV-CVH . 6) (VENV-HOME . 5) (VENV-DECLARED-TYPE . 4) (VENV-USEDP . 3) (VENV-REACH . 2) (VENV-SPECIALP . 1)) NIL ((:CVX . 7) (:CVH . 6) (:HOME . 5) (:DECLARED-TYPE . 4) (:USEDP . 3) (:REACH . 2) (:SPECIALP . 1)))))
(QUOTE VENV)
(DEFVAR *CENV* NIL "Closure environment: an alist of (*cvh* . next-cvx).")
#_(LAP #0_MAKE-FENV EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(7 1 FENV *REACH* *CVH*)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAKE-ARRAY 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 1))
(MOVEM O2 -2 O1)
(MOVE O2 (CONSTANT 2))
(MOVEM O2 0 O1)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -2 Q)
(MOVEM O2 4 O1)
(MOVE O2 -3 Q)
(MOVEM O2 1 O1)
(MOVE O2 (SPECIAL 3))
(MOVEM O2 2 O1)
(MOVE O2 NIL)
(MOVEM O2 3 O1)
(MOVE O2 (SPECIAL 4))
(MOVEM O2 5 O1)
(MOVE O2 NIL)
(MOVEM O2 6 O1)
(MOVEI N 1)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE MAKE-FENV) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (MACROP HOME)))
(%PUT (QUOTE MAKE-FENV) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MAKE-FENV) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FENV-CVX 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 FENV-CVX) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE FENV-CVX) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FENV-CVX) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FENV-CVH 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 FENV-CVH) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE FENV-CVH) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FENV-CVH) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FENV-HOME 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 FENV-HOME) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE FENV-HOME) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FENV-HOME) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FENV-USEDP 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 FENV-USEDP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE FENV-USEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FENV-USEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FENV-REACH 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 FENV-REACH) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE FENV-REACH) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FENV-REACH) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FENV-MACROP 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 FENV-MACROP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE FENV-MACROP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FENV-MACROP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(SETF (SYMBOL-FUNCTION (QUOTE COPY-FENV)) (FUNCTION LISP::BUILT-IN-COPIER))
#_(LAP #0_FENV-P EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 FENV 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 FENV-P) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::THING)))
(%PUT (QUOTE FENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(REMPROP (QUOTE FENV-MACROP) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE FENV-MACROP) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 1 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE FENV-MACROP) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE FENV-MACROP)
(REMPROP (QUOTE FENV-REACH) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE FENV-REACH) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 2 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE FENV-REACH) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE FENV-REACH)
(REMPROP (QUOTE FENV-USEDP) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE FENV-USEDP) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 3 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE FENV-USEDP) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE FENV-USEDP)
(REMPROP (QUOTE FENV-HOME) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE FENV-HOME) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 4 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE FENV-HOME) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE FENV-HOME)
(REMPROP (QUOTE FENV-CVH) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE FENV-CVH) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 5 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE FENV-CVH) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE FENV-CVH)
(REMPROP (QUOTE FENV-CVX) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE FENV-CVX) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 6 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE FENV-CVX) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE FENV-CVX)
(%PUT (QUOTE FENV) (QUOTE LISP::DEFSTRUCT-DESCRIPTION) (QUOTE #(FENV VECTOR ((:CONSTRUCTOR MAKE-FENV (MACROP HOME))) 7 FENV- (MAKE-FENV (MACROP HOME)) (FENV-CVX FENV-CVH FENV-HOME FENV-USEDP FENV-REACH FENV-MACROP) (CVX CVH HOME USEDP REACH MACROP) (NIL *CVH* NIL NIL *REACH* NIL) (NIL NIL NIL NIL NIL NIL) ((FENV-CVX . 6) (FENV-CVH . 5) (FENV-HOME . 4) (FENV-USEDP . 3) (FENV-REACH . 2) (FENV-MACROP . 1)) NIL ((:CVX . 6) (:CVH . 5) (:HOME . 4) (:USEDP . 3) (:REACH . 2) (:MACROP . 1)))))
(QUOTE FENV)
(DEFVAR *FENV* NIL)
(DEFVAR *BENV* NIL)
#_(LAP #0_PRINT-BENV EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_("<Block>")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVEM O3 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL PRINC 2)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE PRINT-BENV) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FOO STREAM BAR)))
(%PUT (QUOTE PRINT-BENV) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PRINT-BENV) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_MAKE-BENV EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(5 1 BENV)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAKE-ARRAY 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 1))
(MOVEM O2 -2 O1)
(MOVE O2 (CONSTANT 2))
(MOVEM O2 0 O1)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -2 Q)
(MOVEM O2 2 O1)
(MOVE O2 -3 Q)
(MOVEM O2 1 O1)
(MOVE O2 NIL)
(MOVEM O2 3 O1)
(MOVEM O2 4 O1)
(MOVEI N 1)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE MAKE-BENV) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (END-TAG WHERE)))
(%PUT (QUOTE MAKE-BENV) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MAKE-BENV) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_BENV-FIXUPS 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 BENV-FIXUPS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE BENV-FIXUPS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BENV-FIXUPS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_BENV-CATCH-TAG 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 BENV-CATCH-TAG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE BENV-CATCH-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BENV-CATCH-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_BENV-WHERE 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 BENV-WHERE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE BENV-WHERE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BENV-WHERE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_BENV-END-TAG 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 BENV-END-TAG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE BENV-END-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BENV-END-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(SETF (SYMBOL-FUNCTION (QUOTE COPY-BENV)) (FUNCTION LISP::BUILT-IN-COPIER))
#_(LAP #0_BENV-P EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 BENV 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 BENV-P) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::THING)))
(%PUT (QUOTE BENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(REMPROP (QUOTE BENV-END-TAG) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE BENV-END-TAG) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 1 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE BENV-END-TAG) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE BENV-END-TAG)
(REMPROP (QUOTE BENV-WHERE) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE BENV-WHERE) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 2 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE BENV-WHERE) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE BENV-WHERE)
(REMPROP (QUOTE BENV-CATCH-TAG) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE BENV-CATCH-TAG) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 3 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE BENV-CATCH-TAG) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE BENV-CATCH-TAG)
(REMPROP (QUOTE BENV-FIXUPS) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE BENV-FIXUPS) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 4 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE BENV-FIXUPS) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE BENV-FIXUPS)
(%PUT (QUOTE BENV) (QUOTE LISP::STRUCTURE-PRINT) (QUOTE PRINT-BENV))
(%PUT (QUOTE BENV) (QUOTE LISP::DEFSTRUCT-DESCRIPTION) (QUOTE #(BENV VECTOR ((:CONSTRUCTOR MAKE-BENV (END-TAG WHERE)) (:PRINT-FUNCTION PRINT-BENV)) 5 BENV- (MAKE-BENV (END-TAG WHERE)) (BENV-FIXUPS BENV-CATCH-TAG BENV-WHERE BENV-END-TAG) (FIXUPS CATCH-TAG WHERE END-TAG) (NIL NIL NIL NIL) (NIL NIL NIL NIL) ((BENV-FIXUPS . 4) (BENV-CATCH-TAG . 3) (BENV-WHERE . 2) (BENV-END-TAG . 1)) NIL ((:FIXUPS . 4) (:CATCH-TAG . 3) (:WHERE . 2) (:END-TAG . 1)))))
(QUOTE BENV)
#_(LAP #0_PRINT-TENV EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_("<Tagbody>")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVEM O3 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL PRINC 2)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE PRINT-TENV) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FOO STREAM BAR)))
(%PUT (QUOTE PRINT-TENV) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PRINT-TENV) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_MAKE-TENV EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(4 1 TENV)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O1 (CONSTANT 0))
(CALL MAKE-ARRAY 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 1))
(MOVEM O2 -2 O1)
(MOVE O2 (CONSTANT 2))
(MOVEM O2 0 O1)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O2 NIL)
(MOVEM O2 1 O1)
(MOVEM O2 2 O1)
(MOVEM O2 3 O1)
(MOVEI N 1)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE MAKE-TENV) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE MAKE-TENV) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MAKE-TENV) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TENV-FIXUPS 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 TENV-FIXUPS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE TENV-FIXUPS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TENV-FIXUPS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TENV-TAGS 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 TENV-TAGS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE TENV-TAGS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TENV-TAGS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TENV-CATCH-TAG 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 TENV-CATCH-TAG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE TENV-CATCH-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TENV-CATCH-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(SETF (SYMBOL-FUNCTION (QUOTE COPY-TENV)) (FUNCTION LISP::BUILT-IN-COPIER))
#_(LAP #0_TENV-P EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 TENV 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 TENV-P) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::THING)))
(%PUT (QUOTE TENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TENV-P) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(REMPROP (QUOTE TENV-CATCH-TAG) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE TENV-CATCH-TAG) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 1 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE TENV-CATCH-TAG) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE TENV-CATCH-TAG)
(REMPROP (QUOTE TENV-TAGS) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE TENV-TAGS) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 2 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE TENV-TAGS) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE TENV-TAGS)
(REMPROP (QUOTE TENV-FIXUPS) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE TENV-FIXUPS) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 3 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE TENV-FIXUPS) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE TENV-FIXUPS)
(%PUT (QUOTE TENV) (QUOTE LISP::STRUCTURE-PRINT) (QUOTE PRINT-TENV))
(%PUT (QUOTE TENV) (QUOTE LISP::DEFSTRUCT-DESCRIPTION) (QUOTE #(TENV VECTOR ((:CONSTRUCTOR MAKE-TENV NIL) (:PRINT-FUNCTION PRINT-TENV)) 4 TENV- (MAKE-TENV NIL) (TENV-FIXUPS TENV-TAGS TENV-CATCH-TAG) (FIXUPS TAGS CATCH-TAG) (NIL NIL NIL) (NIL NIL NIL) ((TENV-FIXUPS . 3) (TENV-TAGS . 2) (TENV-CATCH-TAG . 1)) NIL ((:FIXUPS . 3) (:TAGS . 2) (:CATCH-TAG . 1)))))
(QUOTE TENV)
#_(LAP #0_MAKE-TAG EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(4 1 TAG)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAKE-ARRAY 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 1))
(MOVEM O2 -2 O1)
(MOVE O2 (CONSTANT 2))
(MOVEM O2 0 O1)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -2 Q)
(MOVEM O2 2 O1)
(MOVE O2 -3 Q)
(MOVEM O2 1 O1)
(MOVE O2 NIL)
(MOVEM O2 3 O1)
(MOVEI N 1)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE MAKE-TAG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LABEL INDEX)))
(%PUT (QUOTE MAKE-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MAKE-TAG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TAG-USEDP 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 TAG-USEDP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE TAG-USEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TAG-USEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TAG-INDEX 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 TAG-INDEX) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE TAG-INDEX) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TAG-INDEX) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TAG-LABEL 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 TAG-LABEL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::OBJECT)))
(%PUT (QUOTE TAG-LABEL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TAG-LABEL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(SETF (SYMBOL-FUNCTION (QUOTE COPY-TAG)) (FUNCTION LISP::BUILT-IN-COPIER))
#_(LAP #0_TAG-P EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 TAG 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 TAG-P) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LISP::THING)))
(%PUT (QUOTE TAG-P) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TAG-P) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(REMPROP (QUOTE TAG-LABEL) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE TAG-LABEL) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 1 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE TAG-LABEL) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE TAG-LABEL)
(REMPROP (QUOTE TAG-INDEX) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE TAG-INDEX) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 2 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE TAG-INDEX) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE TAG-INDEX)
(REMPROP (QUOTE TAG-USEDP) (QUOTE LISP::SETF-INVERSE))
(%PUT (QUOTE TAG-USEDP) (QUOTE LISP::SETF-METHOD-EXPANDER) (FUNCTION (LAMBDA (LISP::ACCESS-FORM) (DO* ((LISP::ARGS (CDR LISP::ACCESS-FORM) (CDR LISP::ARGS)) (LISP::DUMMIES NIL (CONS (GENSYM) LISP::DUMMIES)) (LISP::NEWVAL-VAR (GENSYM)) (LISP::NEW-ACCESS-FORM NIL)) ((ATOM LISP::ARGS) (SETQ LISP::NEW-ACCESS-FORM (CONS (CAR LISP::ACCESS-FORM) LISP::DUMMIES)) (VALUES LISP::DUMMIES (CDR LISP::ACCESS-FORM) (LIST LISP::NEWVAL-VAR) (FUNCALL (FUNCTION (LAMBDA (LISP::%ACCESS-ARGLIST LISP::NEW-VALUE) (LET* ((STRUCTURE (CAR (CDR LISP::%ACCESS-ARGLIST)))) (LISP::SETELT-FORM STRUCTURE 3 LISP::NEW-VALUE (QUOTE VECTOR))))) LISP::NEW-ACCESS-FORM LISP::NEWVAL-VAR) LISP::NEW-ACCESS-FORM))))))
(REMPROP (QUOTE TAG-USEDP) (QUOTE LISP::%SETF-DOCUMENTATION))
(QUOTE TAG-USEDP)
(%PUT (QUOTE TAG) (QUOTE LISP::DEFSTRUCT-DESCRIPTION) (QUOTE #(TAG VECTOR ((:CONSTRUCTOR MAKE-TAG (LABEL INDEX))) 4 TAG- (MAKE-TAG (LABEL INDEX)) (TAG-USEDP TAG-INDEX TAG-LABEL) (USEDP INDEX LABEL) (NIL NIL NIL) (NIL NIL NIL) ((TAG-USEDP . 3) (TAG-INDEX . 2) (TAG-LABEL . 1)) NIL ((:USEDP . 3) (:INDEX . 2) (:LABEL . 1)))))
(QUOTE TAG)
#_(LAP #0_CLC-MUMBLE EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(*CLC-ERR-STREAM* *STANDARD-OUTPUT* FORMAT)
(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 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O1 (SPECIAL 0))
(SKIPE NIL O1)
(MOVEM O1 0 Q)
(JUMPN O1 9)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(LABEL 9) (MOVE O4 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 0 Q)
(MOVE O3 -2 Q)
(CALL APPLY 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CLC-MUMBLE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (STRING &REST ARGS)))
(%PUT (QUOTE CLC-MUMBLE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CLC-MUMBLE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CLC-COMMENT EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(*CLC-ERR-STREAM* *STANDARD-OUTPUT* FUNCTION-NAME "~%Comment in ~S: " "~%Comment between functions: " " " FORMAT)
(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 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O1 (SPECIAL 0))
(SKIPE NIL O1)
(MOVEM O1 0 Q)
(JUMPN O1 9)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(LABEL 9) (SKIPN NIL (SPECIAL 2))
(JRST 11)
(MOVE O3 (SPECIAL 2))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 3))
(CALL FORMAT 3)
(JRST 10)
(LABEL 11) (SKIPA)
(JRST 12)
(MOVE O2 (CONSTANT 4))
(MOVE O1 0 Q)
(CALL FORMAT 2)
(LABEL 12)
(LABEL 10) (MOVE O1 0 Q)
(CALL TERPRI 1)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 5))
(CALL PRINC 2)
(MOVE O4 -1 Q)
(MOVE O1 (CONSTANT 6))
(MOVE O2 0 Q)
(MOVE O3 -2 Q)
(CALL APPLY 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CLC-COMMENT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (STRING &REST ARGS)))
(%PUT (QUOTE CLC-COMMENT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CLC-COMMENT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CLC-WARNING EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(*CLC-ERR-STREAM* *STANDARD-OUTPUT* WARNING-COUNT FUNCTION-NAME "~%Warning in ~S: " "~%Warning between functions: " " " FORMAT)
(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 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 (SPECIAL 0))
(SKIPE NIL O1)
(MOVEM O1 -1 Q)
(JUMPN O1 9)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -1 Q)
(LABEL 9) (MOVE O1 (SPECIAL 2))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 2))
(SKIPN NIL (SPECIAL 3))
(JRST 11)
(MOVE O3 (SPECIAL 3))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 4))
(CALL FORMAT 3)
(JRST 10)
(LABEL 11) (SKIPA)
(JRST 12)
(MOVE O2 (CONSTANT 5))
(MOVE O1 -1 Q)
(CALL FORMAT 2)
(LABEL 12)
(LABEL 10) (MOVE O1 -1 Q)
(CALL TERPRI 1)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 6))
(CALL PRINC 2)
(MOVE O4 -2 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -1 Q)
(MOVE O3 -3 Q)
(CALL APPLY 4)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CLC-WARNING) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (STRING &REST ARGS)))
(%PUT (QUOTE CLC-WARNING) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CLC-WARNING) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CLC-ERROR EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(*CLC-ERR-STREAM* *STANDARD-OUTPUT* ERROR-COUNT FUNCTION-NAME FUNCTIONS-WITH-ERRORS "~%Error in ~S: " "~%Error between functions: " " " FORMAT)
(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 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 (SPECIAL 0))
(SKIPE NIL O1)
(MOVEM O1 -2 Q)
(JUMPN O1 9)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -2 Q)
(LABEL 9) (MOVE O1 (SPECIAL 2))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 2))
(SKIPN NIL (SPECIAL 3))
(JRST 11)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -1 Q)
(MOVE O2 (SPECIAL 4))
(MOVE O1 O5)
(CALL ADJOIN 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O3 (SPECIAL 3))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 5))
(CALL FORMAT 3)
(JRST 10)
(LABEL 11) (SKIPA)
(JRST 12)
(MOVE O2 (CONSTANT 6))
(MOVE O1 -2 Q)
(CALL FORMAT 2)
(LABEL 12)
(LABEL 10) (MOVE O1 -2 Q)
(CALL TERPRI 1)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 7))
(CALL PRINC 2)
(MOVE O4 -3 Q)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -2 Q)
(MOVE O3 -4 Q)
(CALL APPLY 4)
(SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CLC-ERROR) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (STRING &REST ARGS)))
(%PUT (QUOTE CLC-ERROR) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CLC-ERROR) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(DEFVAR CLC-COUNTER 0 "Counter for the compiler's internal Gensyms.")
(DEFVAR *LABEL-COUNTER* 0 "Counter for labels-- rebound over each lambda lor low compact label sets")
(DEFVAR *FREE-INTERNAL-VARIABLES* NIL)
(DEFVAR *CURRENTLY-FREE-INTERNAL-VARIABLES* NIL)
#_(LAP #0_REALLY-NEW-INTERNAL-VARIABLE EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CLC-COUNTER SIMPLE-STRING "INTERNAL-VARIABLE-" *FREE-INTERNAL-VARIABLES*)
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (SPECIAL 0))
(CALL PRINC-TO-STRING 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(CALL CONCATENATE 3)
(CALL MAKE-SYMBOL 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 0 Q)
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE REALLY-NEW-INTERNAL-VARIABLE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE REALLY-NEW-INTERNAL-VARIABLE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE REALLY-NEW-INTERNAL-VARIABLE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(DEFVAR ARG-ALLOC-OFFSET 0 "Number of args locations needed on stack for missing optional and
rest args.")
#_(LAP #0_NEW-VAR-TEMP EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("TEMP" *XSTEMPS*)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 (CONSTANT 0))
(CALL GENSYM 1)
(MOVEM O1 -1 Q)
(SKIPN NIL -2 Q)
(JRST 3)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL NCONC 2)
(MOVEM O1 (SPECIAL 1))
(JRST 4)
(LABEL 3) (MOVE O2 (SPECIAL 1))
(MOVE O1 -1 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(LABEL 4) (MOVE O1 -1 Q)
(MOVEI N 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE NEW-VAR-TEMP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FLAG)))
(%PUT (QUOTE NEW-VAR-TEMP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE NEW-VAR-TEMP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_ENOUGH-TEMPS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(N *FREE-TEMPS* "TEMP")
(CODE-START)
(LABEL 1) (ADDI Q 1)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(LABEL 7) (MOVE O1 (SPECIAL 1))
(CALL LENGTH 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 0))
(CALL > 2)
(JUMPE O1 8)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O5 (SPECIAL 1))
(MOVEM O5 0 Q)
(MOVE O1 (CONSTANT 2))
(CALL GENSYM 1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL NCONC 2)
(JRST 7)
(LABEL 3) (UNBIND 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE ENOUGH-TEMPS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (N)))
(%PUT (QUOTE ENOUGH-TEMPS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE ENOUGH-TEMPS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_BREAKOFF-NAME EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CLC-COUNTER SIMPLE-STRING FUNCTION-NAME "-INTERNAL-")
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM NIL -1 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (SPECIAL 2))
(CALL SYMBOL-NAME 1)
(MOVEM O1 0 Q)
(MOVE O1 (SPECIAL 0))
(CALL PRINC-TO-STRING 1)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 0 Q)
(MOVE O3 (CONSTANT 3))
(CALL CONCATENATE 4)
(CALL INTERN 1)
(MOVEM O1 -1 Q)
(MOVEI N 1)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE BREAKOFF-NAME) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE BREAKOFF-NAME) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BREAKOFF-NAME) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_INST-OUT-SPLICE 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)
(MOVE O2 1 O1)
(MOVE O1 0 Q)
(CALL REVAPPEND 2)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL RPLACD 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE INST-OUT-SPLICE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (SPOT CODE)))
(%PUT (QUOTE INST-OUT-SPLICE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE INST-OUT-SPLICE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_INST-OUT-STOMP EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O2 1 O1)
(MOVE O1 -2 Q)
(CALL REVAPPEND 2)
(MOVEM O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 -3 Q)
(CALL RPLACA 2)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVE O2 1 O1)
(MOVE O1 0 Q)
(CALL RPLACD 2)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE INST-OUT-STOMP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (SPOT CODE)))
(%PUT (QUOTE INST-OUT-STOMP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE INST-OUT-STOMP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_MODIFY-PATHNAME-TYPE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION :NEWEST)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -4 Q)
(CALL PATHNAME-HOST 1)
(MOVEM O1 -3 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -2 Q)
(MOVE O1 -6 Q)
(CALL PATHNAME-DEVICE 1)
(MOVEM O1 -1 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 0 Q)
(MOVE O1 -6 Q)
(CALL PATHNAME-DIRECTORY 1)
(PUSH Q O1)
(PUSH Q (CONSTANT 3))
(MOVE O1 -8 Q)
(CALL PATHNAME-NAME 1)
(PUSH Q O1)
(PUSH Q (CONSTANT 4))
(PUSH Q -9 Q)
(PUSH Q (CONSTANT 5))
(PUSH Q (CONSTANT 6))
(MOVE O1 -11 Q)
(MOVE O2 -10 Q)
(MOVE O3 -9 Q)
(MOVE O4 -8 Q)
(MOVE O5 -7 Q)
(CALL MAKE-PATHNAME 12)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE MODIFY-PATHNAME-TYPE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (PATHNAME TYPE)))
(%PUT (QUOTE MODIFY-PATHNAME-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MODIFY-PATHNAME-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_MAKE-CONST EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CONSTANTS-LIST NCONSTANTS)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 1))
(CALL 1- 1)
(MOVEM O1 -2 Q)
(LABEL 7) (SKIPE NIL -3 Q)
(JRST 8)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -4 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (SPECIAL 1))
(CALL 1+ 1)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 (SPECIAL 1))
(CALL 1- 1)
(JRST 3)
(LABEL 8) (MOVE O1 -3 Q)
(MOVE O2 0 O1)
(MOVE O1 -4 Q)
(CALL EQUAL 2)
(JUMPE O1 10)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 10) (MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -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 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE MAKE-CONST) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (C)))
(%PUT (QUOTE MAKE-CONST) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MAKE-CONST) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TEST-VARNAME EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("~S -- variable name must be a symbol." LISP::CONSTANT-IN-COMPILER LISP::%CONSTANT (T NIL) "~S is a constant -- cannot bind or set it." T)
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL SYMBOLP 1)
(JUMPN O1 4)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 1))
(MOVE O1 0 Q)
(CALL GET 2)
(JUMPN1 O1 6)
(MOVE O2 (CONSTANT 2))
(MOVE O1 0 Q)
(CALL GET 2)
(JUMPN1 O1 6)
(MOVE O2 (CONSTANT 3))
(MOVE O1 0 Q)
(CALL MEMQ 2)
(SKIPN NIL O1)
(LABEL 6) (JRST 5)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 4))
(CALL CLC-ERROR 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 7)
(MOVE O1 (CONSTANT 5))
(MOVEI N 1)
(LABEL 7)
(LABEL 3) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE TEST-VARNAME) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VAR)))
(%PUT (QUOTE TEST-VARNAME) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TEST-VARNAME) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TRIVIALP EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(THE)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(CALL SYMBOLP 1)
(JUMPN O1 3)
(MOVE O1 -1 Q)
(CALL CONSTANTP 1)
(JUMPN O1 3)
(MOVE O1 -1 Q)
(CALL LISTP 1)
(JUMPE O1 4)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 4)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL TRIVIALP 1)
(JRST 5)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 5)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE TRIVIALP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (X)))
(%PUT (QUOTE TRIVIALP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TRIVIALP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_ASSUME-EXPR EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(UNKNOWN-FUNCTIONS ASSUMED-EXPR)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(CALL FBOUNDP 1)
(JUMPN O1 4)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -5 Q)
(CALL ADJOIN 2)
(MOVEM O1 (SPECIAL 0))
(MOVE O2 (CONSTANT 1))
(MOVE O1 -5 Q)
(CALL GET 2)
(MOVEM O1 -3 Q)
(SKIPN NIL -3 Q)
(JRST 6)
(MOVE O1 -3 Q)
(MOVE O2 0 O1)
(MOVE O1 -4 Q)
(CALL < 2)
(JUMPE O1 7)
(MOVE O2 -4 Q)
(MOVE O1 -3 Q)
(CALL RPLACA 2)
(LABEL 7) (MOVE O1 -3 Q)
(MOVE O2 1 O1)
(MOVE O1 -4 Q)
(CALL > 2)
(JUMPE O1 9)
(MOVE O2 -4 Q)
(MOVE O1 -3 Q)
(CALL RPLACD 2)
(JRST 10)
(LABEL 9) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 10) (JRST 5)
(LABEL 6) (SKIPA)
(JRST 11)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 O2)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O3 O1)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(LABEL 11)
(LABEL 5) (JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE ASSUME-EXPR) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (NAME ARG-COUNT)))
(%PUT (QUOTE ASSUME-EXPR) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE ASSUME-EXPR) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_NOTE-TYPE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(DECLARED-FUNCTION-TYPE "Type of ~S being changed from ~S to ~S." EXPR ASSUMED-EXPR "~S earlier assumed to be a normal function.")
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVE O2 (CONSTANT 0))
(CALL GET 2)
(MOVEM O1 -3 Q)
(SKIPN NIL -3 Q)
(JRST 5)
(MOVE O2 -3 Q)
(CAMN O2 -4 Q)
(LABEL 5) (JRST 3)
(MOVE O4 -4 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -5 Q)
(MOVE O3 -3 Q)
(CALL CLC-WARNING 4)
(LABEL 3) (MOVE O2 (CONSTANT 2))
(CAMN O2 -4 Q)
(JRST 9)
(MOVE O2 (CONSTANT 3))
(MOVE O1 -5 Q)
(CALL GET 2)
(SKIPN NIL O1)
(LABEL 9) (JRST 7)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 4))
(CALL CLC-WARNING 2)
(LABEL 7) (MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -1 Q)
(MOVE O5 -4 Q)
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE NOTE-TYPE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FN TYPE)))
(%PUT (QUOTE NOTE-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE NOTE-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PARSE-BODY1 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(DECLARE)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVE O5 O1)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(MOVEM NIL -4 Q)
(MOVEM NIL -3 Q)
(LABEL 7) (SKIPE NIL -6 Q)
(JRST 8)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O3 NIL)
(MOVE O2 -4 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 8) (MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL STRINGP 1)
(JUMPE O1 12)
(MOVE O1 -6 Q)
(SKIPN NIL 1 O1)
(JRST 12)
(SKIPE NIL -4 Q)
(LABEL 12) (JRST 11)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 10)
(LABEL 11) (MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL TRANSFORM 1)
(MOVEM O1 -3 Q)
(CALL LISTP 1)
(JUMPN O1 14)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O3 -6 Q)
(MOVE O2 -4 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 14) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 -2 Q)
(JRST 15)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 20) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 21)
(JRST 16)
(LABEL 21) (MOVE O2 -5 Q)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 20)
(LABEL 16) (JRST 10)
(LABEL 15) (SKIPA)
(JRST 23)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O3 -6 Q)
(MOVE O2 -4 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 23)
(LABEL 10) (MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(JRST 7)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE PARSE-BODY1) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (BODY)))
(%PUT (QUOTE PARSE-BODY1) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PARSE-BODY1) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PARSE-BODY2 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(DECLARE)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVEM NIL -4 Q)
(MOVEM NIL -3 Q)
(LABEL 7) (SKIPE NIL -5 Q)
(JRST 8)
(MOVE O1 -4 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O2 NIL)
(CALL LIST 2)
(JRST 3)
(LABEL 8) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL TRANSFORM 1)
(MOVEM O1 -3 Q)
(CALL LISTP 1)
(JUMPN O1 11)
(MOVE O1 -4 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O2 -5 Q)
(CALL LIST 2)
(JRST 3)
(LABEL 11) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 -2 Q)
(JRST 12)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 17) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 18)
(JRST 13)
(LABEL 18) (MOVE O2 -4 Q)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 -4 Q)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 17)
(LABEL 13) (JRST 10)
(LABEL 12) (SKIPA)
(JRST 20)
(MOVE O1 -4 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O2 -5 Q)
(CALL LIST 2)
(JRST 3)
(LABEL 20)
(LABEL 10) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(JRST 7)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE PARSE-BODY2) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (BODY)))
(%PUT (QUOTE PARSE-BODY2) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PARSE-BODY2) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COMPILE-FILE) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Compiles the file identified by the Input-Pathname, producing a
corresponding .CFL or .LAP file. Other options available via keywords."))
#_(LAP #0_COMPILE-FILE EXPR
(ENTRY-POINTS (1 3 4 5 6 7 8) REST)
#0_(:OUTPUT-FILE :ERROR-FILE T :LAP-FILE :ERRORS-TO-TERMINAL (:ERRORS-TO-TERMINAL :LAP-FILE :ERROR-FILE :OUTPUT-FILE) LISP::*IN-THE-COMPILER* 0 *PACKAGE* UNKNOWN-FUNCTIONS UNKNOWN-FREE-VARS FUNCTIONS-WITH-ERRORS ERROR-COUNT WARNING-COUNT INPUT-NAMESTRING *CLC-INPUT-STREAM* *CLC-FASL-STREAM* *CLC-ERR-STREAM* *CLC-LAP-STREAM* *ALL-NUMBERS-ARE-FIXNUMS* "File to compile, as a string: " *STANDARD-OUTPUT* "CLISP" "Prompt for new file name." "Input file does not exist: ~S" "Corrected file name, as a string: " :DIRECTION :INPUT "CFL" :OUTPUT :ELEMENT-TYPE (UNSIGNED-BYTE 8) "LAP" "ERR" "~%Compiling ~S.~%" "~2%Finished ~S.~%Wall time ~D ms; Run time ~D ms." "~%~S Errors, ~S Warnings." "~%Errors in functions:~%~S" "~&(Assumed) functions, called but not declared or defined: ~%~S" "~&(Assumed) special variables, used free but not declared: ~%~S")
(CODE-START)
(LABEL 1) (MOVE O1 NIL)
(LABEL 3) (MOVE O2 NIL)
(JRST 2)
(LABEL 4) (MOVEI W2 1)
(ICALL REST2)
(JRST 2)
(LABEL 5) (MOVEI W2 2)
(ICALL REST3)
(JRST 2)
(LABEL 6) (MOVEI W2 3)
(ICALL REST4)
(JRST 2)
(LABEL 7) (MOVEI W2 4)
(ICALL REST5)
(JRST 2)
(LABEL 8) (MOVEI W2 1)
(ICALL RESTX)
(LABEL 2) (ADDI Q 28)
(MOVEM O1 -23 Q)
(MOVEM O2 -22 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 10)
(MOVEM O1 -27 Q)
(MOVE O2 -22 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 (CONSTANT 2))
(LABEL 11) (MOVEM O1 -26 Q)
(MOVE O2 -22 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 2))
(LABEL 13) (MOVEM O1 -25 Q)
(MOVE O2 -22 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 (CONSTANT 2))
(LABEL 15) (MOVEM O1 -24 Q)
(MOVE O5 -22 Q)
(MOVEM O5 -21 Q)
(MOVE O2 (CONSTANT 5))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(CALL GET-INTERNAL-REAL-TIME 0)
(MOVEM O1 -20 Q)
(CALL GET-INTERNAL-RUN-TIME 0)
(MOVEM O1 -19 Q)
(MOVEM NIL -18 Q)
(MOVEM NIL -17 Q)
(MOVEM NIL -16 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -15 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -14 Q)
(MOVEM NIL -13 Q)
(MOVEM NIL -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(MOVEM NIL -9 Q)
(MOVEM NIL -8 Q)
(MOVEM NIL -7 Q)
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -4 Q)
(MOVE O1 NIL)
(SPEC-BIND (SPECIAL 9))
(MOVEM O1 (SPECIAL 9))
(MOVE O1 -17 Q)
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O1 -16 Q)
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(MOVE O1 -15 Q)
(SPEC-BIND (SPECIAL 12))
(MOVEM O1 (SPECIAL 12))
(MOVE O1 -14 Q)
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(MOVE O1 -13 Q)
(SPEC-BIND (SPECIAL 14))
(MOVEM O1 (SPECIAL 14))
(MOVE O1 -10 Q)
(SPEC-BIND (SPECIAL 15))
(MOVEM O1 (SPECIAL 15))
(MOVE O1 -9 Q)
(SPEC-BIND (SPECIAL 16))
(MOVEM O1 (SPECIAL 16))
(MOVE O1 -8 Q)
(SPEC-BIND (SPECIAL 17))
(MOVEM O1 (SPECIAL 17))
(MOVE O1 -7 Q)
(SPEC-BIND (SPECIAL 18))
(MOVEM O1 (SPECIAL 18))
(MOVE O1 -6 Q)
(SPEC-BIND (SPECIAL 8))
(MOVEM O1 (SPECIAL 8))
(MOVE O1 -5 Q)
(SPEC-BIND (SPECIAL 19))
(MOVEM O1 (SPECIAL 19))
(MOVE O1 -4 Q)
(SPEC-BIND (SPECIAL 6))
(MOVEM O1 (SPECIAL 6))
(ICALL CUNWIND)
(JRST 18)
(JRST 19)
(SKIPE NIL -23 Q)
(JRST 21)
(CALL TERPRI 0)
(MOVE O5 (SPECIAL 21))
(MOVEM O5 -1 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 20))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 7))
(CALL LISP::%SP-WRITE-STRING 4)
(CALL READ 0)
(MOVEM O1 -23 Q)
(LABEL 21)
(LABEL 26) (MOVE O1 -23 Q)
(MOVEM O1 -12 Q)
(CALL PATHNAME 1)
(MOVEM O1 -23 Q)
(CALL PATHNAME-TYPE 1)
(JUMPN O1 28)
(MOVE O2 (CONSTANT 22))
(MOVE O1 -23 Q)
(CALL MODIFY-PATHNAME-TYPE 2)
(MOVEM O1 -23 Q)
(LABEL 28) (MOVE O1 -23 Q)
(CALL TRUENAME 1)
(MOVEM O1 -23 Q)
(JUMPN O1 31)
(MOVE O1 -12 Q)
(CALL NAMESTRING 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 23))
(MOVE O2 (CONSTANT 24))
(CALL CERROR 3)
(CALL TERPRI 0)
(MOVE O5 (SPECIAL 21))
(MOVEM O5 -1 Q)
(MOVE O4 NIL)
(MOVE O1 (CONSTANT 25))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 7))
(CALL LISP::%SP-WRITE-STRING 4)
(CALL READ 0)
(MOVEM O1 -23 Q)
(JRST 26)
(LABEL 31) (MOVE O1 -23 Q)
(CALL NAMESTRING 1)
(MOVEM O1 (SPECIAL 14))
(MOVE O3 (CONSTANT 27))
(MOVE O1 -23 Q)
(MOVE O2 (CONSTANT 26))
(CALL OPEN 3)
(MOVEM O1 (SPECIAL 15))
(SKIPN NIL -27 Q)
(JRST 33)
(MOVE O2 (CONSTANT 2))
(CAME O2 -27 Q)
(JRST 36)
(MOVE O2 (CONSTANT 28))
(MOVE O1 -23 Q)
(CALL MODIFY-PATHNAME-TYPE 2)
(MOVEM O1 -3 Q)
(JRST 37)
(LABEL 36) (MOVE O5 -27 Q)
(MOVEM O5 -3 Q)
(LABEL 37) (MOVE O5 (CONSTANT 31))
(MOVE O1 -3 Q)
(MOVE O2 (CONSTANT 26))
(MOVE O3 (CONSTANT 29))
(MOVE O4 (CONSTANT 30))
(CALL OPEN 5)
(MOVEM O1 (SPECIAL 16))
(CALL INIT-FASL-FILE 0)
(LABEL 33) (SKIPN NIL -25 Q)
(JRST 39)
(MOVE O2 (CONSTANT 2))
(CAME O2 -25 Q)
(JRST 42)
(MOVE O2 (CONSTANT 32))
(MOVE O1 -23 Q)
(CALL MODIFY-PATHNAME-TYPE 2)
(MOVEM O1 -3 Q)
(JRST 43)
(LABEL 42) (MOVE O5 -25 Q)
(MOVEM O5 -3 Q)
(LABEL 43) (MOVE O3 (CONSTANT 29))
(MOVE O1 -3 Q)
(MOVE O2 (CONSTANT 26))
(CALL OPEN 3)
(MOVEM O1 (SPECIAL 18))
(MOVE O5 (SPECIAL 18))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 14))
(MOVE O1 O5)
(CALL PRINT-FILE-HEADER 2)
(LABEL 39) (SKIPN NIL -26 Q)
(JRST 45)
(MOVE O2 (CONSTANT 2))
(CAME O2 -26 Q)
(JRST 48)
(MOVE O2 (CONSTANT 33))
(MOVE O1 -23 Q)
(CALL MODIFY-PATHNAME-TYPE 2)
(MOVEM O1 -3 Q)
(JRST 49)
(LABEL 48) (MOVE O5 -26 Q)
(MOVEM O5 -3 Q)
(LABEL 49) (MOVE O3 (CONSTANT 29))
(MOVE O1 -3 Q)
(MOVE O2 (CONSTANT 26))
(CALL OPEN 3)
(MOVEM O1 -11 Q)
(MOVE O2 (SPECIAL 14))
(CALL PRINT-FILE-HEADER 2)
(SKIPN NIL -24 Q)
(JRST 50)
(MOVE O5 (SPECIAL 21))
(MOVEM O5 -3 Q)
(MOVE O2 -11 Q)
(MOVE O1 O5)
(CALL MAKE-BROADCAST-STREAM 2)
(JRST 51)
(LABEL 50) (MOVE O1 -11 Q)
(LABEL 51) (MOVEM O1 (SPECIAL 17))
(LABEL 45) (MOVE O2 (SPECIAL 14))
(MOVE O1 (CONSTANT 34))
(CALL CLC-MUMBLE 2)
(CALL READLOOP 0)
(MOVE O5 (SPECIAL 14))
(MOVEM O5 -2 Q)
(CALL GET-INTERNAL-REAL-TIME 0)
(MOVEM O1 -1 Q)
(MOVE O2 -20 Q)
(CALL - 2)
(MOVEM O1 -1 Q)
(CALL GET-INTERNAL-RUN-TIME 0)
(MOVEM O1 0 Q)
(MOVE O2 -19 Q)
(CALL - 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 35))
(MOVE O2 -2 Q)
(MOVE O3 -1 Q)
(CALL CLC-MUMBLE 4)
(MOVE O5 (SPECIAL 12))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 13))
(MOVE O1 O5)
(CALL + 2)
(CALL ZEROP 1)
(JUMPN O1 54)
(MOVE O5 (SPECIAL 12))
(MOVEM O5 -2 Q)
(MOVE O3 (SPECIAL 13))
(MOVE O1 (CONSTANT 36))
(MOVE O2 O5)
(CALL CLC-MUMBLE 3)
(LABEL 54) (SKIPN NIL (SPECIAL 11))
(JRST 57)
(MOVE O1 (SPECIAL 11))
(CALL NREVERSE 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 37))
(CALL CLC-MUMBLE 2)
(LABEL 57) (SKIPN NIL (SPECIAL 9))
(JRST 60)
(MOVE O1 (SPECIAL 9))
(CALL NREVERSE 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 38))
(CALL CLC-MUMBLE 2)
(LABEL 60) (SKIPN NIL (SPECIAL 10))
(JRST 63)
(MOVE O1 (SPECIAL 10))
(CALL NREVERSE 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 39))
(CALL CLC-MUMBLE 2)
(LABEL 63) (CALL TERPRI 0)
(MOVE O1 NIL)
(MOVEI N 1)
(POPJ P)
(LABEL 18) (MOVE O1 (SPECIAL 15))
(CALL STREAMP 1)
(JUMPE O1 66)
(MOVE O1 (SPECIAL 15))
(CALL CLOSE 1)
(LABEL 66) (MOVE O1 (SPECIAL 16))
(CALL STREAMP 1)
(JUMPE O1 69)
(MOVE O1 (SPECIAL 16))
(CALL CLOSE 1)
(LABEL 69) (MOVE O1 -11 Q)
(CALL STREAMP 1)
(JUMPE O1 72)
(MOVE O1 -11 Q)
(CALL CLOSE 1)
(LABEL 72) (MOVE O1 (SPECIAL 18))
(CALL STREAMP 1)
(JUMPE O1 75)
(MOVE O1 (SPECIAL 18))
(CALL CLOSE 1)
(LABEL 75) (POPJ P)
(LABEL 19) (UNBIND 13)
(SUBI Q 28)
(POPJ P)
)
(%PUT (QUOTE COMPILE-FILE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (&OPTIONAL INPUT-PATHNAME &KEY (OUTPUT-FILE NIL) (ERROR-FILE T) (LAP-FILE T) (ERRORS-TO-TERMINAL T))))
(%PUT (QUOTE COMPILE-FILE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMPILE-FILE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PRINT-FILE-HEADER EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(INPUT-NAMESTRING "~%;;; CLC v~A compiling ~A~%" COMPILER-VERSION)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O2 (SPECIAL 0))
(MOVE O5 (SPECIAL 2))
(MOVEM O5 0 Q)
(MOVE O4 (SPECIAL 0))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O3 O5)
(CALL FORMAT 4)
(UNBIND 1)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE PRINT-FILE-HEADER) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (STREAM INPUT-NAMESTRING)))
(%PUT (QUOTE PRINT-FILE-HEADER) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PRINT-FILE-HEADER) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(DEFVAR EOF-VALUE (QUOTE (NIL)) "A unique consed object that can be recognized as the end-of-file signal.")
#_(LAP #0_READLOOP EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*SHARP-COMMA-SEEN* T *COMPILER-IS-READING* *CLC-INPUT-STREAM* EOF-VALUE *FREE-INTERNAL-VARIABLES* *CURRENTLY-FREE-INTERNAL-VARIABLES* *INTERNAL-FUNCTIONS*)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM NIL -3 Q)
(MOVEM NIL -2 Q)
(MOVE O1 NIL)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(LABEL 7) (JRST 8)
(MOVE O1 NIL)
(MOVEI N 1)
(UNBIND 1)
(JRST 3)
(LABEL 8) (MOVE O1 NIL)
(MOVEM O1 (SPECIAL 0))
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 2))
(MOVEM O1 (SPECIAL 2))
(MOVE O5 (SPECIAL 3))
(MOVEM O5 0 Q)
(MOVE O3 (SPECIAL 4))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL READ 3)
(UNBIND 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CAME O2 -3 Q)
(JRST 10)
(MOVE O1 NIL)
(MOVEI N 1)
(UNBIND 1)
(JRST 3)
(LABEL 10) (MOVE O5 (SPECIAL 5))
(MOVEM O5 -1 Q)
(MOVEM NIL 0 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 6))
(MOVEM O1 (SPECIAL 6))
(MOVE O1 0 Q)
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(MOVE O1 -3 Q)
(CALL PROCESS-FORM 1)
(UNBIND 2)
(JRST 7)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE READLOOP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE READLOOP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE READLOOP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COMPILE) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Compiles the function whose name is Name. If Definition is supplied,
it should be a lambda expression that is compiled and then placed in the
function cell of Name. If Name is Nil, the compiled code object is
returned."))
#_(LAP #0_COMPILE EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(FUNCTION-TYPE EXPR FUNCTION-NAME *COMPILE-TO-LISP* T *CURRENTLY-FREE-INTERNAL-VARIABLES* *FREE-INTERNAL-VARIABLES* MACRO LAMBDA "~S is not a compilable function." LISP::*IN-THE-COMPILER* UNKNOWN-FUNCTIONS UNKNOWN-FREE-VARS FUNCTIONS-WITH-ERRORS ERROR-COUNT 0 WARNING-COUNT *CLC-INPUT-STREAM* *CLC-FASL-STREAM* *CLC-LAP-STREAM* *CLC-ERR-STREAM* *STANDARD-OUTPUT* *INTERNAL-FUNCTIONS* *VENV* *FENV* *BENV* PREVIOUS-DEFINITION *VERBOSE* "~%Horrible errors, compile aborted.")
(CODE-START)
(LABEL 1) (MOVE O2 NIL)
(LABEL 2) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O1 O2)
(SKIPE NIL O1)
(MOVEM O1 -6 Q)
(JUMPN O1 4)
(MOVE O1 -8 Q)
(CALL SYMBOL-FUNCTION 1)
(MOVEM O1 -6 Q)
(LABEL 4) (MOVE O5 -6 Q)
(MOVEM O5 -5 Q)
(MOVE O1 (CONSTANT 1))
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 -8 Q)
(JUMPN O1 5)
(CALL GENSYM 0)
(LABEL 5) (SPEC-BIND (SPECIAL 2))
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (CONSTANT 4))
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(MOVE O1 (SPECIAL 6))
(SPEC-BIND (SPECIAL 5))
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -5 Q)
(CALL CONSP 1)
(JUMPE O1 8)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 7))
(CAME O2 -4 Q)
(LABEL 8) (JRST 7)
(MOVE O1 (CONSTANT 7))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(LABEL 7) (MOVE O1 -5 Q)
(CALL CONSP 1)
(JUMPE1 O1 13)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 8))
(CAMN O2 -4 Q)
(LABEL 13) (JRST 12)
(MOVE O2 (SPECIAL 2))
(MOVE O1 (CONSTANT 9))
(CALL ERROR 2)
(LABEL 12) (SPEC-BIND (SPECIAL 11))
(MOVEM NIL (SPECIAL 11))
(SPEC-BIND (SPECIAL 12))
(MOVEM NIL (SPECIAL 12))
(SPEC-BIND (SPECIAL 13))
(MOVEM NIL (SPECIAL 13))
(MOVE O1 (CONSTANT 15))
(SPEC-BIND (SPECIAL 14))
(MOVEM O1 (SPECIAL 14))
(MOVE O1 (CONSTANT 15))
(SPEC-BIND (SPECIAL 16))
(MOVEM O1 (SPECIAL 16))
(SPEC-BIND (SPECIAL 17))
(MOVEM NIL (SPECIAL 17))
(SPEC-BIND (SPECIAL 18))
(MOVEM NIL (SPECIAL 18))
(SPEC-BIND (SPECIAL 19))
(MOVEM NIL (SPECIAL 19))
(MOVE O1 (SPECIAL 21))
(SPEC-BIND (SPECIAL 20))
(MOVEM O1 (SPECIAL 20))
(SPEC-BIND (SPECIAL 22))
(MOVEM NIL (SPECIAL 22))
(SPEC-BIND (SPECIAL 23))
(MOVEM NIL (SPECIAL 23))
(SPEC-BIND (SPECIAL 24))
(MOVEM NIL (SPECIAL 24))
(SPEC-BIND (SPECIAL 25))
(MOVEM NIL (SPECIAL 25))
(MOVE O1 (CONSTANT 4))
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O1 -5 Q)
(CALL COMPILE-ONE-LAMBDA 1)
(MOVE O1 (SPECIAL 14))
(CALL ZEROP 1)
(JUMPE O1 16)
(SKIPN NIL -8 Q)
(JRST 18)
(MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(SKIPE NIL -7 Q)
(JRST 21)
(MOVE O5 -8 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 26))
(MOVEM O5 -1 Q)
(MOVE O5 -6 Q)
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(LABEL 21) (MOVE O1 -3 Q)
(MOVEI N 1)
(JRST 19)
(LABEL 18) (MOVE O1 (SPECIAL 2))
(CALL SYMBOL-FUNCTION 1)
(LABEL 19) (JRST 17)
(LABEL 16) (SKIPN NIL (SPECIAL 27))
(JRST 23)
(MOVE O5 (SPECIAL 20))
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 28))
(MOVE O1 O5)
(CALL FORMAT 2)
(JRST 24)
(LABEL 23) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 24)
(LABEL 17) (UNBIND 14)
(UNBIND 4)
(SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE COMPILE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (NAME &OPTIONAL DEFINITION)))
(%PUT (QUOTE COMPILE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMPILE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE UNCOMPILE) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Restores the previous interpreted definition of the function
named by NAME, if it can find one."))
#_(LAP #0_UNCOMPILE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(PREVIOUS-DEFINITION)
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL COMPILEDP 1)
(JUMPE O1 5)
(MOVE O2 (CONSTANT 0))
(MOVE O1 0 Q)
(CALL GET 2)
(SKIPN NIL O1)
(LABEL 5) (JRST 4)
(MOVE O2 (CONSTANT 0))
(MOVE O1 0 Q)
(CALL GET 2)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL %SP-SET-DEFINITION 2)
(MOVE O2 (CONSTANT 0))
(MOVE O1 0 Q)
(CALL REMPROP 2)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE UNCOMPILE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (NAME)))
(%PUT (QUOTE UNCOMPILE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE UNCOMPILE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_INTERNAL-COMPILEDP EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T MACRO %COMPILED-CLOSURE%)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(CALL COMPILED-FUNCTION-P 1)
(JUMPE O1 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -1 Q)
(CALL CONSP 1)
(JUMPE O1 5)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 0 Q)
(JRST 7)
(MOVE O1 1 O1)
(CALL COMPILED-FUNCTION-P 1)
(JRST 6)
(LABEL 7) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 0 Q)
(JRST 8)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 6)
(LABEL 8) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 6) (JRST 3)
(LABEL 5) (SKIPA)
(JRST 10)
(MOVE O1 NIL)
(MOVEI N 1)
(LABEL 10)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE INTERNAL-COMPILEDP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FUNC)))
(%PUT (QUOTE INTERNAL-COMPILEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE INTERNAL-COMPILEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COMPILEDP) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Predicate that is true if the argument is a compiled-function or if
it names one."))
#_(LAP #0_COMPILEDP 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 INTERNAL-COMPILEDP 1)
(JUMPN O1 3)
(MOVE O1 0 Q)
(CALL SYMBOLP 1)
(JUMPE O1 4)
(MOVE O1 0 Q)
(CALL FBOUNDP 1)
(JUMPE O1 4)
(MOVE O1 0 Q)
(CALL SYMBOL-FUNCTION 1)
(CALL INTERNAL-COMPILEDP 1)
(JRST 5)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 5)
(LABEL 3) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE COMPILEDP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (X)))
(%PUT (QUOTE COMPILEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMPILEDP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-FORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T DEFUN MACRO (DEFVAR DEFPARAMETER DEFCONSTANT) :TEST EQL PROGN PROCLAIM EVAL-WHEN COMMENT (MAKE-PACKAGE IN-PACKAGE SHADOW SHADOWING-IMPORT EXPORT UNEXPORT USE-PACKAGE UNUSE-PACKAGE IMPORT))
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O2 (CONSTANT 0))
(CALL TRANSFORM 2)
(MOVEM O1 -3 Q)
(CALL ATOM 1)
(JUMPN O1 4)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -2 Q)
(JRST 6)
(CALL PROCESS-DEFUN 1)
(JRST 5)
(LABEL 6) (MOVE O2 (CONSTANT 2))
(CAME O2 -2 Q)
(JRST 7)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 -3 Q)
(CALL PROCESS-MACRO 2)
(JRST 5)
(LABEL 7) (MOVE O4 (CONSTANT 5))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 (CONSTANT 4))
(CALL MEMBER 4)
(JUMPE O1 8)
(MOVE O1 -3 Q)
(CALL PROCESS-DEFSYM 1)
(JRST 5)
(LABEL 8) (MOVE O2 (CONSTANT 6))
(CAME O2 -2 Q)
(JRST 9)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 14) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 15)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 10)
(LABEL 15) (MOVE O1 0 Q)
(CALL PROCESS-FORM 1)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 14)
(LABEL 10) (JRST 5)
(LABEL 9) (MOVE O2 (CONSTANT 7))
(CAME O2 -2 Q)
(JRST 17)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL PROCESS-PROCLAMATION 1)
(JRST 5)
(LABEL 17) (MOVE O2 (CONSTANT 8))
(CAME O2 -2 Q)
(JRST 18)
(MOVE O1 -3 Q)
(CALL PROCESS-EVAL-WHEN 1)
(JRST 5)
(LABEL 18) (MOVE O2 (CONSTANT 9))
(CAME O2 -2 Q)
(JRST 19)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 5)
(LABEL 19) (MOVE O4 (CONSTANT 5))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O3 (CONSTANT 4))
(CALL MEMBER 4)
(JUMPE O1 20)
(MOVE O1 -3 Q)
(CALL EVAL 1)
(MOVE O2 -4 Q)
(MOVE O1 -3 Q)
(CALL PROCESS-RANDOM 2)
(JRST 5)
(LABEL 20) (SKIPA)
(JRST 21)
(MOVE O2 -4 Q)
(MOVE O1 -3 Q)
(CALL PROCESS-RANDOM 2)
(LABEL 21)
(LABEL 5) (JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE PROCESS-FORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (OLD-FORM)))
(%PUT (QUOTE PROCESS-FORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-FORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-EVAL-WHEN EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(QUOTE "Ill-formed EVAL-WHEN. Ignoring its contents." COMPILE LOAD *EVAL-WHEN-COMPILE* *EVAL-WHEN-LOAD*)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL ATOM 1)
(JUMPN1 O1 5)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 0))
(LABEL 5) (JRST 4)
(MOVE O1 (CONSTANT 1))
(CALL CLC-ERROR 1)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 6)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 2))
(CALL MEMQ 2)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 3))
(CALL MEMQ 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(SPEC-BIND (SPECIAL 4))
(MOVEM O1 (SPECIAL 4))
(MOVE O1 -2 Q)
(SPEC-BIND (SPECIAL 5))
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 11) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 12)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 7)
(LABEL 12) (MOVE O1 0 Q)
(CALL PROCESS-FORM 1)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 11)
(LABEL 7) (UNBIND 2)
(LABEL 6)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE PROCESS-EVAL-WHEN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE PROCESS-EVAL-WHEN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-EVAL-WHEN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-RANDOM EXPR
(ENTRY-POINTS (2-FEW 1 3 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T *EVAL-WHEN-COMPILE* *EVAL-WHEN-LOAD* COMPILE-FORMS-LIST *CLC-LAP-STREAM* *CLC-FASL-STREAM* |Random Top-Level Form| ONE-SHOT LAMBDA FUNCTION-NAME FUNCTION-TYPE)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -5 Q)
(MOVE O2 NIL)
(MOVEM O2 -4 Q)
(MOVEM NIL -6 Q)
(JRST 2)
(LABEL 3) (ADDI Q 7)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVE O6 (CONSTANT 0))
(MOVEM O6 -6 Q)
(LABEL 2) (SKIPN NIL (SPECIAL 1))
(JRST 6)
(MOVE O1 -5 Q)
(CALL SCLEAN 1)
(CALL COPY-TREE 1)
(CALL EVAL 1)
(LABEL 6) (SKIPN NIL (SPECIAL 2))
(JRST 9)
(SKIPE NIL -6 Q)
(JRST1 12)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 3))
(MOVE O1 O5)
(CALL MEMQ 2)
(SKIPE NIL O1)
(LABEL 12) (JRST 11)
(SKIPN NIL -6 Q)
(JRST 13)
(MOVE O1 -4 Q)
(MOVEM O1 -5 Q)
(LABEL 13) (SKIPN NIL (SPECIAL 4))
(JRST 15)
(MOVE O2 (SPECIAL 4))
(MOVE O1 -5 Q)
(CALL SCPRINT 2)
(LABEL 15) (SKIPN NIL (SPECIAL 5))
(JRST 17)
(MOVE O1 -5 Q)
(CALL FASL-DUMP-FORM 1)
(JRST 18)
(LABEL 17) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 18) (JRST 10)
(LABEL 11) (SKIPA)
(JRST 19)
(MOVE O5 (CONSTANT 6))
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -1 Q)
(MOVE O3 -5 Q)
(MOVE O1 (CONSTANT 8))
(MOVE O2 NIL)
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O1 -2 Q)
(SPEC-BIND (SPECIAL 9))
(MOVEM O1 (SPECIAL 9))
(MOVE O1 -1 Q)
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O1 0 Q)
(CALL COMPILE-ONE-LAMBDA 1)
(UNBIND 2)
(LABEL 19)
(LABEL 10) (JRST 8)
(LABEL 9) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 8) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE PROCESS-RANDOM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM &OPTIONAL (OLD-FORM NIL OLDP))))
(%PUT (QUOTE PROCESS-RANDOM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-RANDOM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-DEFSYM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SPECIAL *EVAL-WHEN-COMPILE* *EVAL-WHEN-LOAD* *CLC-LAP-STREAM* *CLC-FASL-STREAM* DEFCONSTANT CONSTANT T CONSTVAL)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(CALL PROCLAIM 1)
(SKIPN NIL (SPECIAL 1))
(JRST 4)
(MOVE O1 -4 Q)
(CALL SCLEAN 1)
(CALL COPY-TREE 1)
(CALL EVAL 1)
(LABEL 4) (SKIPN NIL (SPECIAL 2))
(JRST 7)
(SKIPN NIL (SPECIAL 3))
(JRST 8)
(MOVE O2 (SPECIAL 3))
(MOVE O1 -4 Q)
(CALL SCPRINT 2)
(LABEL 8) (SKIPN NIL (SPECIAL 4))
(JRST 10)
(MOVE O1 -4 Q)
(CALL FASL-DUMP-FORM 1)
(LABEL 10) (MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 5))
(CAME O2 -3 Q)
(JRST 13)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 6))
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 8))
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL EVAL 1)
(MOVEM O1 0 Q)
(MOVE O3 O1)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(JRST 12)
(LABEL 13) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 12) (JRST 6)
(LABEL 7) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 6) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE PROCESS-DEFSYM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE PROCESS-DEFSYM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-DEFSYM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-MACRO EXPR
(ENTRY-POINTS (2-FEW 1 3 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T FUNCTION-ARGLIST LISP::MACRO-IN-COMPILER LAMBDA *EVAL-WHEN-COMPILE* *EVAL-WHEN-LOAD* FUNCTION-TYPE MACRO FUNCTION-NAME ERROR-COUNT *VERBOSE* %PUT QUOTE (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE LISP::%SOURCE-DOCUMENTATION) CONS INPUT-NAMESTRING GET ((QUOTE LISP::%SOURCE-DOCUMENTATION)) "~%~S compiled." "~%~S did not compile successfully." "~S not a legal macro name.")
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -8 Q)
(MOVE O2 NIL)
(MOVEM O2 -7 Q)
(MOVEM NIL -9 Q)
(JRST 2)
(LABEL 3) (ADDI Q 10)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O6 (CONSTANT 0))
(MOVEM O6 -9 Q)
(LABEL 2) (SKIPN NIL -9 Q)
(JRST 5)
(MOVE O5 -7 Q)
(MOVEM O5 -6 Q)
(JRST 6)
(LABEL 5) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(LABEL 6) (MOVE O1 -6 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPE O1 9)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL KEYWORDP 1)
(SKIPE NIL O1)
(LABEL 9) (JRST 8)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -4 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 3))
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O3 O1)
(MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(CALL %PUT 3)
(SKIPN NIL (SPECIAL 4))
(JRST 12)
(MOVE O1 -8 Q)
(CALL SCLEAN 1)
(CALL COPY-TREE 1)
(CALL EVAL 1)
(LABEL 12) (SKIPN NIL (SPECIAL 5))
(JRST 15)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 3))
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O1 (CONSTANT 7))
(SPEC-BIND (SPECIAL 6))
(MOVEM O1 (SPECIAL 6))
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(SPEC-BIND (SPECIAL 8))
(MOVEM O1 (SPECIAL 8))
(MOVE O5 (SPECIAL 9))
(MOVEM O5 -4 Q)
(MOVE O1 -5 Q)
(CALL COMPILE-ONE-LAMBDA 1)
(SKIPN NIL (SPECIAL 10))
(JRST 17)
(MOVE O5 (SPECIAL 9))
(MOVEM O5 -3 Q)
(MOVE O2 -4 Q)
(MOVE O1 O5)
(CALL = 2)
(JUMPE O1 18)
(MOVE O2 (SPECIAL 8))
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 -2 Q)
(MOVE O3 (CONSTANT 13))
(CALL LIST 4)
(CALL PROCESS-RANDOM 1)
(MOVE O2 (SPECIAL 8))
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 16))
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 8))
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O3 (CONSTANT 18))
(MOVE O1 (CONSTANT 17))
(MOVE O2 0 Q)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 -2 Q)
(MOVE O3 (CONSTANT 14))
(CALL LIST 4)
(CALL PROCESS-RANDOM 1)
(MOVE O2 (SPECIAL 8))
(MOVE O1 (CONSTANT 19))
(CALL CLC-MUMBLE 2)
(JRST 19)
(LABEL 18) (MOVE O2 (SPECIAL 8))
(MOVE O1 (CONSTANT 20))
(CALL CLC-MUMBLE 2)
(LABEL 19) (JRST 16)
(LABEL 17) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 16) (UNBIND 2)
(JRST 14)
(LABEL 15) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 14) (JRST 7)
(LABEL 8) (SKIPA)
(JRST 22)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 21))
(CALL CLC-ERROR 2)
(LABEL 22)
(LABEL 7) (UNBIND 1)
(SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE PROCESS-MACRO) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM &OPTIONAL (ARGS NIL ARGS?))))
(%PUT (QUOTE PROCESS-MACRO) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-MACRO) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-DEFUN EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(FUNCTION-NAME FUNCTION-ARGLIST INLINE-EXPANSION LAMBDA *EVAL-WHEN-COMPILE* *EVAL-WHEN-LOAD* EXPR ERROR-COUNT FUNCTION-TYPE *VERBOSE* %PUT QUOTE (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE LISP::%SOURCE-DOCUMENTATION) CONS INPUT-NAMESTRING GET ((QUOTE LISP::%SOURCE-DOCUMENTATION)) "~%~S compiled." "~%~S did not compile successfully." "~S not a legal function name.")
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 -9 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 -8 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O1 (SPECIAL 0))
(CALL SYMBOLP 1)
(JUMPE O1 5)
(MOVE O1 (SPECIAL 0))
(CALL KEYWORDP 1)
(SKIPE NIL O1)
(LABEL 5) (JRST 4)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -7 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 O5)
(CALL GET 2)
(JUMPE O1 8)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -7 Q)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 3))
(CALL CONS 2)
(MOVE O3 O1)
(MOVE O1 -7 Q)
(MOVE O2 (CONSTANT 2))
(CALL %PUT 3)
(LABEL 8) (SKIPN NIL (SPECIAL 4))
(JRST 11)
(MOVE O1 -10 Q)
(CALL SCLEAN 1)
(CALL COPY-TREE 1)
(CALL EVAL 1)
(LABEL 11) (SKIPN NIL (SPECIAL 5))
(JRST 14)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 3))
(CALL CONS 2)
(MOVEM O1 -6 Q)
(MOVE O5 (CONSTANT 6))
(MOVEM O5 -5 Q)
(MOVE O5 (SPECIAL 7))
(MOVEM O5 -4 Q)
(MOVE O1 -5 Q)
(SPEC-BIND (SPECIAL 8))
(MOVEM O1 (SPECIAL 8))
(MOVE O1 -6 Q)
(CALL COMPILE-ONE-LAMBDA 1)
(SKIPN NIL (SPECIAL 9))
(JRST 16)
(MOVE O5 (SPECIAL 7))
(MOVEM O5 -3 Q)
(MOVE O2 -4 Q)
(MOVE O1 O5)
(CALL = 2)
(JUMPE O1 17)
(MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -2 Q)
(MOVE O3 (CONSTANT 12))
(CALL LIST 4)
(CALL PROCESS-RANDOM 1)
(MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 15))
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O3 (CONSTANT 17))
(MOVE O1 (CONSTANT 16))
(MOVE O2 0 Q)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 14))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -2 Q)
(MOVE O3 (CONSTANT 13))
(CALL LIST 4)
(CALL PROCESS-RANDOM 1)
(MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 18))
(CALL CLC-MUMBLE 2)
(JRST 18)
(LABEL 17) (MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 19))
(CALL CLC-MUMBLE 2)
(LABEL 18) (JRST 15)
(LABEL 16) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 15) (UNBIND 1)
(JRST 13)
(LABEL 14) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 13) (JRST 3)
(LABEL 4) (SKIPA)
(JRST 21)
(MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 20))
(CALL CLC-ERROR 2)
(LABEL 21)
(LABEL 3) (UNBIND 2)
(SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE PROCESS-DEFUN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE PROCESS-DEFUN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-DEFUN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-PROCLAMATION EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Illegal form in proclaim, ignoring it: ~S" SPECIAL LISP::GLOBALLY-SPECIAL-IN-COMPILER T %PUT QUOTE ((QUOTE LISP::GLOBALLY-SPECIAL) T) FIXNUM (T) :TEST EQL *ALL-NUMBERS-ARE-FIXNUMS* (NIL) FTYPE FUNCTION INLINE NOTINLINE *NOTINLINES* OPTIMIZE DECLARATION RECOGNIZED-DECLARATION "~S unknown proclamation type.")
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(CALL EVAL 1)
(MOVEM O1 -4 Q)
(CALL CONSP 1)
(JUMPN O1 4)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-WARNING 2)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -3 Q)
(JRST 7)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 12) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 13)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 8)
(LABEL 13) (MOVE O3 (CONSTANT 3))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 2))
(CALL %PUT 3)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O3 (CONSTANT 6))
(MOVE O1 (CONSTANT 4))
(MOVE O2 0 Q)
(CALL LIST* 3)
(CALL PROCESS-RANDOM 1)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 12)
(LABEL 8) (JRST 6)
(LABEL 7) (MOVE O2 (CONSTANT 7))
(CAME O2 -3 Q)
(JRST 15)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O4 (CONSTANT 10))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 8))
(MOVE O3 (CONSTANT 9))
(CALL MEMBER 4)
(JUMPE O1 17)
(MOVE O1 (CONSTANT 3))
(MOVEM O1 (SPECIAL 11))
(MOVEI N 1)
(JRST 16)
(LABEL 17) (MOVE O4 (CONSTANT 10))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 12))
(MOVE O3 (CONSTANT 9))
(CALL MEMBER 4)
(JUMPE O1 18)
(MOVE O1 NIL)
(MOVEM O1 (SPECIAL 11))
(MOVEI N 1)
(JRST 16)
(LABEL 18) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 16) (JRST 6)
(LABEL 15) (MOVE O2 (CONSTANT 13))
(CAME O2 -3 Q)
(JRST 20)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 6)
(LABEL 20) (MOVE O2 (CONSTANT 14))
(CAME O2 -3 Q)
(JRST 21)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 6)
(LABEL 21) (MOVE O2 (CONSTANT 15))
(CAME O2 -3 Q)
(JRST 22)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 6)
(LABEL 22) (MOVE O2 (CONSTANT 16))
(CAME O2 -3 Q)
(JRST 23)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 28) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 29)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 24)
(LABEL 29) (MOVE O2 (SPECIAL 17))
(MOVE O1 -1 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 17))
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 28)
(LABEL 24) (JRST 6)
(LABEL 23) (MOVE O2 (CONSTANT 18))
(CAME O2 -3 Q)
(JRST 31)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 6)
(LABEL 31) (MOVE O2 (CONSTANT 19))
(CAME O2 -3 Q)
(JRST 32)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 37) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 38)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 33)
(LABEL 38) (MOVE O3 (CONSTANT 3))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 20))
(CALL %PUT 3)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 37)
(LABEL 33) (JRST 6)
(LABEL 32) (SKIPA)
(JRST 40)
(MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 20))
(MOVE O1 O5)
(CALL GET 2)
(JUMPE O1 41)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 42)
(LABEL 41) (MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 21))
(CALL CLC-WARNING 2)
(LABEL 42)
(LABEL 40)
(LABEL 6)
(LABEL 5)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE PROCESS-PROCLAMATION) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE PROCESS-PROCLAMATION) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-PROCLAMATION) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PROCESS-DECLARATIONS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Illegal form in Declare, ignoring it: ~S" SPECIAL NEW-SPECIALS T *VENV* UNKNOWN-FREE-VARS FIXNUM (T) :TEST EQL *ALL-NUMBERS-ARE-FIXNUMS* (NIL) (TYPE FTYPE FUNCTION INLINE) NOTINLINE *NOTINLINES* IGNORE IGNORES ARGLIST FUNCTION-ARGLIST OPTIMIZE DECLARATION RECOGNIZED-DECLARATION TYPE-NAMES NEW-TYPE-DECLS "~S unknown declaration type.")
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVE O5 O1)
(MOVEM O5 -8 Q)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(LABEL 7) (MOVE O1 -8 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -7 Q)
(CALL CONSP 1)
(JUMPN O1 10)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-WARNING 2)
(JRST 11)
(LABEL 10) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -6 Q)
(JRST 13)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 18) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 19)
(JRST 14)
(LABEL 19) (MOVE O1 -4 Q)
(CALL TEST-VARNAME 1)
(MOVE O2 (SPECIAL 2))
(MOVE O1 -4 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 -4 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 3))
(CALL MAKE-VENV 2)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (SPECIAL 5))
(MOVE O1 -4 Q)
(CALL DELQ 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 18)
(LABEL 14) (JRST 12)
(LABEL 13) (MOVE O2 (CONSTANT 6))
(CAME O2 -6 Q)
(JRST 21)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O4 (CONSTANT 9))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 7))
(MOVE O3 (CONSTANT 8))
(CALL MEMBER 4)
(JUMPE O1 23)
(MOVE O1 (CONSTANT 3))
(MOVEM O1 (SPECIAL 10))
(JRST 22)
(LABEL 23) (MOVE O4 (CONSTANT 9))
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O3 (CONSTANT 8))
(CALL MEMBER 4)
(JUMPE O1 24)
(MOVE O1 NIL)
(MOVEM O1 (SPECIAL 10))
(LABEL 24)
(LABEL 22) (JRST 12)
(LABEL 21) (MOVE O4 (CONSTANT 9))
(MOVE O1 -6 Q)
(MOVE O2 (CONSTANT 12))
(MOVE O3 (CONSTANT 8))
(CALL MEMBER 4)
(JUMPE O1 26)
(JRST 12)
(LABEL 26) (MOVE O2 (CONSTANT 13))
(CAME O2 -6 Q)
(JRST 27)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 32) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 33)
(JRST 28)
(LABEL 33) (MOVE O2 (SPECIAL 14))
(MOVE O1 -4 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 14))
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 32)
(LABEL 28) (JRST 12)
(LABEL 27) (MOVE O2 (CONSTANT 15))
(CAME O2 -6 Q)
(JRST 35)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 40) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 41)
(JRST 36)
(LABEL 41) (MOVE O1 -4 Q)
(CALL TEST-VARNAME 1)
(MOVE O2 (SPECIAL 16))
(MOVE O1 -4 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 16))
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 40)
(LABEL 36) (JRST 12)
(LABEL 35) (MOVE O2 (CONSTANT 17))
(CAME O2 -6 Q)
(JRST 43)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 (SPECIAL 18))
(JRST 12)
(LABEL 43) (MOVE O2 (CONSTANT 19))
(CAME O2 -6 Q)
(JRST 44)
(JRST 12)
(LABEL 44) (MOVE O2 (CONSTANT 20))
(CAME O2 -6 Q)
(JRST 45)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 50) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 51)
(JRST 46)
(LABEL 51) (MOVE O5 -4 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 21))
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 50)
(LABEL 46) (JRST 12)
(LABEL 45) (SKIPA)
(JRST 53)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 (SPECIAL 22))
(MOVE O1 O5)
(CALL MEMQ 2)
(JUMPE O1 55)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(LABEL 60) (MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 61)
(JRST 56)
(LABEL 61) (MOVE O1 -2 Q)
(CALL TEST-VARNAME 1)
(MOVE O2 -5 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 23))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 23))
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(JRST 60)
(LABEL 56) (JRST 54)
(LABEL 55) (MOVE O2 (CONSTANT 21))
(MOVE O1 -5 Q)
(CALL GET 2)
(JUMPN O1 54)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 24))
(CALL CLC-WARNING 2)
(LABEL 54)
(LABEL 53)
(LABEL 12)
(LABEL 11) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JRST 7)
(LABEL 3) (SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE PROCESS-DECLARATIONS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (DLIST)))
(%PUT (QUOTE PROCESS-DECLARATIONS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PROCESS-DECLARATIONS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CHECK-USED EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*VENV* OLD-VENV IGNORES "~S bound but not referenced in ~S." FUNCTION-NAME)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -2 Q)
(LABEL 7) (MOVE O2 (SPECIAL 1))
(CAME O2 -2 Q)
(JRST 8)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPE NIL 3 O1)
(JRST 10)
(MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(JRST 10)
(MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (SPECIAL 2))
(MOVE O1 O5)
(CALL MEMQ 2)
(JUMPN O1 10)
(MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O3 (SPECIAL 4))
(MOVE O1 (CONSTANT 3))
(MOVE O2 O5)
(CALL CLC-WARNING 3)
(LABEL 10) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CHECK-USED) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE CHECK-USED) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CHECK-USED) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CHECK-USED-FNS EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (MOVE O1 NIL)
(MOVEI N 1)
(POPJ P)
)
(%PUT (QUOTE CHECK-USED-FNS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE CHECK-USED-FNS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CHECK-USED-FNS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_COMPILE-ONE-LAMBDA EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LAP-CODE (CODE-START) ENTRY-POINTS CONSTANTS-LIST NCONSTANTS 0 *RESTP* *LABEL-COUNTER* *ENCLOSES* ERROR-COUNT VARS-GRIPED-ABOUT *TEMPS* "TEMP" *FREE-TEMPS* *XSTEMPS* MAX-ARGS MIN-ARGS *NARGS-ON-STACK* BLOCK FUNCTION-NAME %PUT QUOTE (QUOTE LISP::%FUN-DOCUMENTATION) IGNORES (IGNORE) *NOTINLINES* *ALL-NUMBERS-ARE-FIXNUMS* NEW-TYPE-DECLS NEW-SPECIALS *HAND* *CVH* 1 *CENV* OLD-VENV *VENV* OLD-FENV *FENV* *BENV* SPECBIND *CONTOUR-POINTER* CONTOUR *QREF* TOP-CONTOUR TAIL UNBIND DEALLOC (POPJ P) *REACH* *GRASP* PSS1 UNKNOWN-FUNCTIONS FUNCTION-TYPE CLOSURE EXPR ONE-SHOT *CLC-LAP-STREAM* *CLC-FASL-STREAM* *COMPILE-TO-LISP* *INTERNAL-FUNCTIONS*)
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVE O1 (CONSTANT 1))
(CALL LIST 1)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(SPEC-BIND (SPECIAL 2))
(MOVEM NIL (SPECIAL 2))
(SPEC-BIND (SPECIAL 3))
(MOVEM NIL (SPECIAL 3))
(MOVE O1 (CONSTANT 5))
(SPEC-BIND (SPECIAL 4))
(MOVEM O1 (SPECIAL 4))
(SPEC-BIND (SPECIAL 6))
(MOVEM NIL (SPECIAL 6))
(MOVE O1 (CONSTANT 5))
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(SPEC-BIND (SPECIAL 8))
(MOVEM NIL (SPECIAL 8))
(MOVE O5 (SPECIAL 9))
(MOVEM O5 -9 Q)
(SPEC-BIND (SPECIAL 10))
(MOVEM NIL (SPECIAL 10))
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 (CONSTANT 12))
(CALL GENSYM 1)
(CALL LIST 1)
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(MOVE O1 (SPECIAL 11))
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(SPEC-BIND (SPECIAL 14))
(MOVEM NIL (SPECIAL 14))
(MOVE O1 (CONSTANT 5))
(SPEC-BIND (SPECIAL 15))
(MOVEM O1 (SPECIAL 15))
(MOVE O1 (CONSTANT 5))
(SPEC-BIND (SPECIAL 16))
(MOVEM O1 (SPECIAL 16))
(MOVE O1 (CONSTANT 5))
(SPEC-BIND (SPECIAL 17))
(MOVEM O1 (SPECIAL 17))
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(CALL PARSE-BODY1 1)
(MOVEM O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(MOVE O5 (SPECIAL 19))
(MOVEM O5 -4 Q)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 18))
(MOVE O2 O5)
(CALL LIST* 3)
(MOVEM O1 -7 Q)
(SKIPN NIL -5 Q)
(JRST 4)
(MOVE O2 (SPECIAL 19))
(MOVE O1 (CONSTANT 21))
(CALL LIST 2)
(MOVEM O1 -4 Q)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 21))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 20))
(MOVE O2 -4 Q)
(MOVE O3 (CONSTANT 22))
(CALL LIST 4)
(CALL PROCESS-RANDOM 1)
(LABEL 4) (MOVE O1 (CONSTANT 24))
(SPEC-BIND (SPECIAL 23))
(MOVEM O1 (SPECIAL 23))
(SPEC-BIND (SPECIAL 25))
(SPEC-BIND (SPECIAL 26))
(SPEC-BIND (SPECIAL 27))
(MOVEM NIL (SPECIAL 27))
(SPEC-BIND (SPECIAL 28))
(MOVEM NIL (SPECIAL 28))
(SPEC-BIND (SPECIAL 13))
(MOVE O1 (SPECIAL 29))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 29))
(MOVEM O1 (SPECIAL 29))
(MOVE O5 (SPECIAL 30))
(MOVEM O5 -4 Q)
(MOVE O1 (CONSTANT 31))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 13))
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 13))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 13))
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 30))
(MOVEM O1 (SPECIAL 30))
(MOVE O5 (SPECIAL 30))
(MOVEM O5 -3 Q)
(MOVE O3 (SPECIAL 32))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL ACONS 3)
(SPEC-BIND (SPECIAL 32))
(MOVEM O1 (SPECIAL 32))
(MOVE O1 (SPECIAL 34))
(SPEC-BIND (SPECIAL 33))
(MOVEM O1 (SPECIAL 33))
(SPEC-BIND (SPECIAL 34))
(MOVE O1 (SPECIAL 36))
(SPEC-BIND (SPECIAL 35))
(MOVEM O1 (SPECIAL 35))
(SPEC-BIND (SPECIAL 36))
(MOVE O2 (CONSTANT 5))
(MOVE O1 (CONSTANT 38))
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 37))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 37))
(MOVEM O1 (SPECIAL 37))
(SPEC-BIND (SPECIAL 39))
(MOVEM NIL (SPECIAL 39))
(MOVE O1 -6 Q)
(CALL PROCESS-DECLARATIONS 1)
(MOVE O1 (SPECIAL 32))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O4 (SPECIAL 41))
(MOVE O1 (CONSTANT 40))
(MOVE O2 O5)
(MOVE O3 -4 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 (SPECIAL 39))
(MOVE O1 -8 Q)
(CALL CG-LAMBDA-LIST 1)
(MOVE O1 (SPECIAL 32))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O3 -4 Q)
(MOVE O1 (CONSTANT 42))
(MOVE O2 O5)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVE O2 (CONSTANT 43))
(MOVE O1 -7 Q)
(CALL CG-FORM 2)
(MOVE O2 (SPECIAL 37))
(MOVE O1 (CONSTANT 38))
(CALL ASSQ 2)
(MOVE O1 1 O1)
(CALL ZEROP 1)
(JUMPN O1 7)
(MOVE O2 (SPECIAL 37))
(MOVE O1 (CONSTANT 38))
(CALL ASSQ 2)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 44))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(LABEL 7) (MOVE O1 (SPECIAL 11))
(CALL LENGTH 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 45))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (CONSTANT 46))
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVE O5 (SPECIAL 47))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 48))
(MOVE O1 O5)
(CALL > 2)
(JUMPE O1 9)
(CALL CLOSURE-VECTORS-GO-HOME 0)
(LABEL 9) (SKIPN NIL (SPECIAL 8))
(JRST 11)
(CALL GENERATE-CLOSURE-VECTORS 0)
(LABEL 11) (MOVE O1 (SPECIAL 0))
(CALL NREVERSE 1)
(MOVEM O1 (SPECIAL 0))
(MOVE O5 (SPECIAL 19))
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 49))
(MOVEM O5 -1 Q)
(MOVE O1 (SPECIAL 0))
(CALL COPY-TREE 1)
(CALL MAKE-LAP-FUNCTION 1)
(MOVEM O1 0 Q)
(MOVE O3 O1)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(CALL OPTIMIZE 0)
(CALL FIX-QREFS 0)
(MOVE O1 (SPECIAL 2))
(CALL NREVERSE 1)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (SPECIAL 3))
(CALL NREVERSE 1)
(MOVEM O1 (SPECIAL 3))
(MOVE O5 (SPECIAL 19))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 50))
(MOVE O1 O5)
(CALL DELQ 2)
(MOVEM O1 (SPECIAL 50))
(CALL CHECK-USED 0)
(MOVE O5 (SPECIAL 51))
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 52))
(CAME O2 -3 Q)
(JRST 13)
(MOVE O1 (CONSTANT 53))
(MOVEM O1 (SPECIAL 51))
(LABEL 13) (MOVE O5 (SPECIAL 51))
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 54))
(CAMN O2 -3 Q)
(JRST 16)
(MOVE O5 (SPECIAL 19))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 51))
(MOVE O1 O5)
(CALL NOTE-TYPE 2)
(LABEL 16) (MOVE O1 (SPECIAL 0))
(CALL MAKE-LAP-FUNCTION 1)
(MOVEM O1 (SPECIAL 0))
(SKIPN NIL (SPECIAL 55))
(JRST 18)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 55))
(MOVE O1 O5)
(CALL LAPRINT 2)
(LABEL 18) (SKIPN NIL (SPECIAL 56))
(JRST 20)
(MOVE O1 (SPECIAL 0))
(CALL MAKE-FASL 1)
(LABEL 20) (SKIPN NIL (SPECIAL 57))
(JRST 22)
(MOVE O1 (SPECIAL 0))
(CALL EVAL 1)
(JRST 23)
(LABEL 22) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 58))
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 58))
(MOVEI N 1)
(LABEL 23) (UNBIND 15)
(UNBIND 14)
(SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE COMPILE-ONE-LAMBDA) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE COMPILE-ONE-LAMBDA) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMPILE-ONE-LAMBDA) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_MAKE-LAP-FUNCTION EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LAP-CODE LAP FUNCTION-NAME FUNCTION-TYPE ENTRY-POINTS *RESTP* (REST) CONSTANTS-LIST)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -4 Q)
(MOVE O5 (SPECIAL 2))
(MOVEM O5 -3 Q)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -2 Q)
(MOVE O5 (SPECIAL 4))
(MOVEM O5 0 Q)
(SKIPN NIL (SPECIAL 5))
(JRST 3)
(MOVE O3 (CONSTANT 6))
(JRST 4)
(LABEL 3) (MOVE O3 NIL)
(LABEL 4) (MOVE O1 (CONSTANT 4))
(MOVE O2 0 Q)
(CALL LIST* 3)
(MOVEM O1 -1 Q)
(MOVE O5 (SPECIAL 7))
(MOVEM O5 0 Q)
(PUSH Q (SPECIAL 0))
(MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(MOVE O3 -3 Q)
(MOVE O4 -2 Q)
(MOVE O5 -1 Q)
(CALL LIST* 6)
(UNBIND 1)
(SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE MAKE-LAP-FUNCTION) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LAP-CODE)))
(%PUT (QUOTE MAKE-LAP-FUNCTION) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE MAKE-LAP-FUNCTION) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_LAPRINT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*CLC-PACKAGE* *PACKAGE* "~2%#_(~S " "#0_~S " "~S" "~%~7T~S" "~%~7T#0_" *SHARP-COMMA-SEEN* "~%~7T~S~%" *LAP-PRETTY-PRINT* LABEL "~&~S" "~13T~S~%" " ~S~%" ")~%")
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -4 Q)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -6 Q)
(MOVE O3 0 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 2))
(CALL FORMAT 3)
(MOVE O5 -3 Q)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 3))
(CALL FORMAT 3)
(UNBIND 1)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 4))
(CALL FORMAT 3)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O3 0 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 5))
(CALL FORMAT 3)
(MOVE O5 -3 Q)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O2 (CONSTANT 6))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(SKIPN NIL (SPECIAL 7))
(JRST 3)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL PRIN1-SHARP-DOT 2)
(JRST 4)
(LABEL 3) (MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 4))
(CALL FORMAT 3)
(LABEL 4) (UNBIND 1)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 8))
(CALL FORMAT 3)
(SKIPN NIL (SPECIAL 9))
(JRST 5)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 11) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 12)
(JRST 7)
(LABEL 12) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 10))
(CAME O2 0 Q)
(JRST 14)
(MOVE O3 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 11))
(CALL FORMAT 3)
(JRST 15)
(LABEL 14) (MOVE O3 -1 Q)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 12))
(CALL FORMAT 3)
(LABEL 15) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 11)
(LABEL 7) (JRST 6)
(LABEL 5) (MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 20) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 21)
(JRST 16)
(LABEL 21) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 10))
(CAME O2 0 Q)
(JRST 23)
(MOVE O3 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 11))
(CALL FORMAT 3)
(JRST 24)
(LABEL 23) (MOVE O3 -1 Q)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 13))
(CALL FORMAT 3)
(LABEL 24) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 20)
(LABEL 16)
(LABEL 6) (MOVE O2 (CONSTANT 14))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(UNBIND 1)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE LAPRINT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LIST STREAM)))
(%PUT (QUOTE LAPRINT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE LAPRINT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-LAMBDA-LIST EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(FF-CODE VARS-UPSTREAM SKIP-TAG (O1 O2 O3 O4 O5) MAX-ARGS &OPTIONAL &REST &KEY *CURRENTLY-FREE-INTERNAL-VARIABLES* &AUX &ALLOW-OTHER-KEYS "Stray &allow-other-keys in lambda-list, ignoring." 1 *FREE-TEMPS* *XSTEMPS* *TEMPS* *RESTP* 2-MANY ENTRY-POINTS 7)
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVEM NIL -8 Q)
(MOVEM NIL -7 Q)
(MOVEM NIL -6 Q)
(MOVE O1 NIL)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 -7 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -6 Q)
(SPEC-BIND (SPECIAL 2))
(MOVEM O1 (SPECIAL 2))
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 7) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O2 (SPECIAL 4))
(MOVE O1 NIL)
(CALL FINISH-FRAME 2)
(JRST 3)
(LABEL 8) (MOVE O2 (CONSTANT 5))
(CAME O2 -3 Q)
(JRST 11)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 O5)
(CALL CG-OPTIONAL 2)
(JRST 3)
(LABEL 11) (MOVE O2 (CONSTANT 6))
(CAME O2 -3 Q)
(JRST 12)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O3 -1 Q)
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL CG-REST 3)
(JRST 3)
(LABEL 12) (MOVE O2 (CONSTANT 7))
(CAME O2 -3 Q)
(JRST 13)
(SKIPN NIL (SPECIAL 8))
(JRST 14)
(MOVE O1 (SPECIAL 8))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (SPECIAL 8))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 8))
(MOVEM O5 0 Q)
(JRST 15)
(LABEL 14) (CALL REALLY-NEW-INTERNAL-VARIABLE 0)
(MOVEM O1 0 Q)
(LABEL 15) (MOVE O2 -4 Q)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O3 -1 Q)
(MOVE O2 NIL)
(CALL CG-REST 3)
(JRST 3)
(LABEL 13) (MOVE O2 (CONSTANT 9))
(CAME O2 -3 Q)
(JRST 16)
(MOVE O2 (SPECIAL 4))
(MOVE O1 NIL)
(CALL FINISH-FRAME 2)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(CALL CG-BIND-AUXEN 1)
(JRST 3)
(LABEL 16) (MOVE O2 (CONSTANT 10))
(CAME O2 -3 Q)
(JRST 17)
(MOVE O1 (CONSTANT 11))
(CALL CLC-WARNING 1)
(JRST 10)
(LABEL 17) (MOVE O2 -1 Q)
(MOVE O1 -3 Q)
(CALL CG-REQUIRED-ARG 2)
(JUMPN O1 10)
(LABEL 10) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -3 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(JUMPN O1 20)
(MOVE O1 (CONSTANT 12))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 13))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (SPECIAL 13))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 13))
(MOVE O1 O5)
(LABEL 20) (MOVEM O1 -1 Q)
(JRST 7)
(LABEL 3) (SKIPN NIL (SPECIAL 14))
(JRST 21)
(MOVE O5 (SPECIAL 15))
(MOVEM O5 -5 Q)
(MOVE O2 (SPECIAL 13))
(CAME O2 -5 Q)
(JRST 23)
(MOVE O5 (SPECIAL 14))
(MOVEM O5 -5 Q)
(MOVE O2 (SPECIAL 15))
(MOVE O1 O5)
(CALL NCONC 2)
(MOVEM O1 (SPECIAL 15))
(JRST 21)
(LABEL 23) (SKIPA)
(JRST 24)
(MOVE O5 (SPECIAL 15))
(MOVEM O5 -4 Q)
(LABEL 29) (MOVE O5 (SPECIAL 13))
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O2 1 O1)
(CAME O2 -3 Q)
(JRST 30)
(MOVE O5 (SPECIAL 14))
(MOVEM O5 -2 Q)
(MOVE O2 (SPECIAL 13))
(MOVE O1 O5)
(CALL NCONC 2)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL LISP::%RPLACD 2)
(JRST 25)
(LABEL 30) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(JRST 29)
(LABEL 25)
(LABEL 24)
(LABEL 21) (SKIPE NIL (SPECIAL 16))
(JRST 34)
(MOVE O2 (SPECIAL 18))
(MOVE O1 (CONSTANT 17))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 18))
(LABEL 34)
(LABEL 40) (MOVE O1 (SPECIAL 18))
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(MOVE O2 (CONSTANT 19))
(CALL < 2)
(JUMPN O1 41)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 36)
(LABEL 41) (MOVE O2 (SPECIAL 18))
(MOVE O1 (CONSTANT 17))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 18))
(JRST 40)
(LABEL 36) (UNBIND 3)
(SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE CG-LAMBDA-LIST) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARGLIST)))
(%PUT (QUOTE CG-LAMBDA-LIST) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-LAMBDA-LIST) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FINISH-FRAME EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SKIP-TAG *RESTP* ALLOC 5 0 LAP-CODE FF-CODE LABEL)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -2 Q)
(SKIPE NIL (SPECIAL 1))
(JRST 4)
(CALL ENTRY-OUT 0)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(MOVE O1 -2 Q)
(CALL - 2)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 4))
(CALL > 2)
(JUMPE O1 6)
(MOVE O2 (CONSTANT 4))
(JRST 7)
(LABEL 6) (MOVE O2 0 Q)
(LABEL 7) (MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O5 (SPECIAL 6))
(MOVEM O5 -1 Q)
(MOVE O2 (SPECIAL 5))
(MOVE O1 O5)
(CALL APPEND 2)
(MOVEM O1 (SPECIAL 5))
(SKIPN NIL (SPECIAL 0))
(JRST 8)
(MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 9)
(LABEL 8) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 9) (UNBIND 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE FINISH-FRAME) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (SKIP-TAG NARGS)))
(%PUT (QUOTE FINISH-FRAME) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FINISH-FRAME) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-BIND-AUXEN EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Bad item after &AUX: ~S")
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O5 O1)
(MOVEM O5 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 7) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -1 Q)
(CALL SYMBOLP 1)
(JUMPE O1 11)
(MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL CG-BIND 2)
(JRST 10)
(LABEL 11) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 12)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL CG-BIND 2)
(JRST 10)
(LABEL 12) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(JRST 13)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL CG-BIND 2)
(JRST 10)
(LABEL 13) (SKIPA)
(JRST 14)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 2)
(LABEL 14)
(LABEL 10) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 7)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-BIND-AUXEN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (AUX-LIST)))
(%PUT (QUOTE CG-BIND-AUXEN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-BIND-AUXEN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-REQUIRED-ARG EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2-FEW ENTRY-POINTS VARS-UPSTREAM MAX-ARGS MIN-ARGS)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL CG-BIND-ARG 2)
(MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (SPECIAL 3))
(CALL 1+ 1)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 (SPECIAL 4))
(CALL 1+ 1)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CG-REQUIRED-ARG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (V GIVEN)))
(%PUT (QUOTE CG-REQUIRED-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-REQUIRED-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-BIND-ARG EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2 3 2-MANY 2-MANY))
#0_((O1 O2 O3 O4 O5 O6 NIL) GT5ARG T SPECBIND *BENV* SPEC-BIND SPECIAL FF-CODE LAP-CODE MOVEM MOVE O6 (0) *VENV*)
(CODE-START)
(LABEL 1) (MOVE O3 NIL)
(LABEL 2) (MOVE O4 NIL)
(LABEL 3) (ADDI Q 9)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVEM O4 -4 Q)
(MOVEM NIL -8 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPN O1 7)
(MOVE O1 -6 Q)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 7) (JRST 5)
(MOVE O5 -6 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL %PUT 3)
(LABEL 5) (MOVE O1 -7 Q)
(CALL TEST-VARNAME 1)
(JUMPN O1 10)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 9)
(LABEL 10) (MOVE O1 -7 Q)
(CALL SPECIALP-HERE 1)
(MOVEM O1 -8 Q)
(JUMPE O1 11)
(MOVE O2 (SPECIAL 4))
(MOVE O1 (CONSTANT 3))
(CALL ASSQ 2)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(CALL LISP::%RPLACD 2)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 5 O1)
(MOVEM O1 -5 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL -4 Q)
(JRST 12)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(LABEL 12) (MOVE O2 (CONSTANT 0))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPE O1 15)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 9))
(MOVE O2 -6 Q)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL -4 Q)
(JRST 16)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 9))
(MOVE O2 -6 Q)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEI N 1)
(JRST 17)
(LABEL 16) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 17) (JRST 14)
(LABEL 15) (SKIPA)
(JRST 18)
(MOVE O4 (CONSTANT 12))
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 11))
(MOVE O3 -6 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL -4 Q)
(JRST 19)
(MOVE O4 (CONSTANT 12))
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 11))
(MOVE O3 -6 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(LABEL 19) (MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 9))
(MOVE O2 (CONSTANT 11))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL -4 Q)
(JRST 21)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 9))
(MOVE O2 (CONSTANT 11))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEI N 1)
(JRST 22)
(LABEL 21) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 22)
(LABEL 18)
(LABEL 14) (JRST 9)
(LABEL 11) (SKIPA)
(JRST 24)
(SKIPE NIL -5 Q)
(JRST 26)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPE O1 27)
(MOVE O1 (CONSTANT 2))
(CALL NEW-VAR-TEMP 1)
(JRST 28)
(LABEL 27) (MOVE O1 -6 Q)
(LABEL 28) (MOVEM O1 -5 Q)
(LABEL 26) (MOVE O2 -5 Q)
(MOVE O1 NIL)
(CALL MAKE-VENV 2)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(CALL CONS 2)
(MOVEM O1 -8 Q)
(MOVE O2 (SPECIAL 13))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 13))
(MOVE O2 (CONSTANT 0))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPE O1 30)
(MOVE O4 (CONSTANT 12))
(MOVE O1 (CONSTANT 9))
(MOVE O2 -6 Q)
(MOVE O3 -5 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL -4 Q)
(JRST 32)
(MOVE O4 (CONSTANT 12))
(MOVE O1 (CONSTANT 9))
(MOVE O2 -6 Q)
(MOVE O3 -5 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEI N 1)
(JRST 33)
(LABEL 32) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 33) (JRST 31)
(LABEL 30) (MOVE O2 -5 Q)
(MOVE O1 -6 Q)
(CALL EQUAL 2)
(JUMPN O1 35)
(MOVE O3 -6 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 11))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL -4 Q)
(JRST 36)
(MOVE O3 -6 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 11))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(LABEL 36) (MOVE O4 (CONSTANT 12))
(MOVE O1 (CONSTANT 9))
(MOVE O2 (CONSTANT 11))
(MOVE O3 -5 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL -4 Q)
(JRST 38)
(MOVE O4 (CONSTANT 12))
(MOVE O1 (CONSTANT 9))
(MOVE O2 (CONSTANT 11))
(MOVE O3 -5 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEI N 1)
(JRST 39)
(LABEL 38) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 39) (JRST 34)
(LABEL 35) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 34)
(LABEL 31)
(LABEL 24)
(LABEL 9) (SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-BIND-ARG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VAR GIVEN &OPTIONAL HOME FF-FLAG &AUX ENTRY)))
(%PUT (QUOTE CG-BIND-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-BIND-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_SPECIALP-HERE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(NEW-SPECIALS *VENV* LISP::GLOBALLY-SPECIAL LISP::GLOBALLY-SPECIAL-IN-COMPILER T)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 0 Q)
(MOVEM NIL -1 Q)
(MOVE O2 (SPECIAL 0))
(CALL MEMQ 2)
(JUMPE O1 4)
(MOVE O2 (SPECIAL 1))
(MOVE O1 0 Q)
(CALL ASSQ 2)
(MOVEM O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 2))
(MOVE O1 0 Q)
(CALL GET 2)
(JUMPN1 O1 6)
(MOVE O2 (CONSTANT 3))
(MOVE O1 0 Q)
(CALL GET 2)
(SKIPN NIL O1)
(LABEL 6) (JRST 5)
(MOVE O1 0 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 4))
(CALL MAKE-VENV 2)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 7)
(MOVE O1 NIL)
(MOVEI N 1)
(LABEL 7)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE SPECIALP-HERE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VAR &AUX ENTRY)))
(%PUT (QUOTE SPECIALP-HERE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SPECIALP-HERE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-BIND EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2 2-MANY 2-MANY 2-MANY))
#0_(SPECBIND *BENV* (O1 O2 O3 O4 O5 O6 NIL) MOVE O1 *QREF* LAP-CODE POPREG SPEC-BIND SPECIAL POP MOVEM 1 *FREE-TEMPS* *VENV*)
(CODE-START)
(LABEL 1) (MOVE O3 NIL)
(LABEL 2) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVEM NIL -4 Q)
(MOVE O5 O3)
(MOVEM O5 -3 Q)
(CALL TEST-VARNAME 1)
(JUMPN O1 5)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 4)
(LABEL 5) (MOVE O1 -7 Q)
(CALL SPECIALP-HERE 1)
(MOVEM O1 -4 Q)
(JUMPE O1 6)
(MOVE O1 1 O1)
(MOVE O1 5 O1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 0))
(CALL ASSQ 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL LISP::%RPLACD 2)
(MOVE O2 -6 Q)
(CAMN O2 -7 Q)
(JRST 9)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(SKIPE NIL O1)
(LABEL 9) (JRST 7)
(SKIPN NIL -3 Q)
(JRST 10)
(MOVE O4 (SPECIAL 5))
(MOVE O1 (CONSTANT 3))
(MOVE O2 (CONSTANT 4))
(MOVE O3 -6 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(JRST 7)
(LABEL 10) (MOVE O1 -6 Q)
(CALL CONSP 1)
(JUMPE1 O1 12)
(MOVE O1 -6 Q)
(MOVE O2 0 O1)
(CAMN O2 (CONSTANT 7))
(LABEL 12) (JRST 7)
(MOVE O2 (CONSTANT 4))
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(LABEL 7) (MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 8))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O2 -6 Q)
(CAMN O2 -7 Q)
(JRST 16)
(MOVE O1 O2)
(CALL CONSP 1)
(JUMPE O1 19)
(MOVE O1 -6 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 7))
(LABEL 19) (JRST 18)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -1 Q)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(JRST 16)
(LABEL 18) (SKIPA)
(JRST 21)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPE O1 22)
(MOVE O5 -6 Q)
(MOVEM O5 -1 Q)
(JRST 23)
(LABEL 22) (MOVE O5 (CONSTANT 4))
(MOVEM O5 -1 Q)
(LABEL 23) (MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 -1 Q)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(LABEL 21)
(LABEL 16) (MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 4)
(LABEL 6) (SKIPA)
(JRST 25)
(MOVE O2 -5 Q)
(JUMPN O2 26)
(MOVE O1 (CONSTANT 12))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 13))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (SPECIAL 13))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 13))
(MOVE O2 O5)
(LABEL 26) (MOVE O1 NIL)
(CALL MAKE-VENV 2)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(CALL CONS 2)
(MOVEM O1 -4 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPE O1 28)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 5 O1)
(MOVEM O5 0 Q)
(MOVE O4 (SPECIAL 5))
(MOVE O1 (CONSTANT 11))
(MOVE O2 -6 Q)
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(JRST 27)
(LABEL 28) (MOVE O1 -6 Q)
(CALL CONSP 1)
(JUMPE O1 30)
(MOVE O1 -6 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 7))
(LABEL 30) (JRST 29)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 5 O1)
(MOVEM O5 0 Q)
(MOVE O4 (SPECIAL 5))
(MOVE O1 (CONSTANT 10))
(MOVE O2 -1 Q)
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(JRST 27)
(LABEL 29) (SKIPE NIL -5 Q)
(JRST 27)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O2 5 O1)
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(LABEL 27) (MOVE O2 (SPECIAL 14))
(MOVE O1 -4 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 14))
(MOVE O1 -4 Q)
(MOVEI N 1)
(LABEL 25)
(LABEL 4) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE CG-BIND) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VAR VAL &OPTIONAL HOME)))
(%PUT (QUOTE CG-BIND) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-BIND) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-OPTIONAL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((O1 O2 O3 O4 O5) SKIP-TAG MAX-ARGS &REST &KEY *CURRENTLY-FREE-INTERNAL-VARIABLES* &AUX &ALLOW-OTHER-KEYS "Stray &allow-other-keys in lambda-list, ignoring." &OPTIONAL "&Optional appears more than once." "Illegal item in arglist: ~S" 1 *FREE-TEMPS*)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O5 O1)
(MOVEM O5 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -7 Q)
(CALL MEMQ 2)
(MOVEM O1 -4 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O1 -6 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -2 Q)
(MOVE O2 (SPECIAL 2))
(MOVE O1 O5)
(CALL FINISH-FRAME 2)
(JRST 3)
(LABEL 8) (MOVE O2 (CONSTANT 3))
(CAME O2 -5 Q)
(JRST 11)
(MOVE O1 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -1 Q)
(MOVE O3 -3 Q)
(MOVE O1 -2 Q)
(MOVE O2 O5)
(CALL CG-REST 3)
(JRST 3)
(LABEL 11) (MOVE O2 (CONSTANT 4))
(CAME O2 -5 Q)
(JRST 12)
(SKIPN NIL (SPECIAL 5))
(JRST 13)
(MOVE O1 (SPECIAL 5))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 (SPECIAL 5))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 5))
(MOVEM O5 -2 Q)
(JRST 14)
(LABEL 13) (CALL REALLY-NEW-INTERNAL-VARIABLE 0)
(MOVEM O1 -2 Q)
(LABEL 14) (MOVE O2 -6 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O3 -3 Q)
(MOVE O2 NIL)
(CALL CG-REST 3)
(JRST 3)
(LABEL 12) (MOVE O2 (CONSTANT 6))
(CAME O2 -5 Q)
(JRST 15)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -2 Q)
(MOVE O2 (SPECIAL 2))
(MOVE O1 O5)
(CALL FINISH-FRAME 2)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(CALL CG-BIND-AUXEN 1)
(JRST 3)
(LABEL 15) (MOVE O2 (CONSTANT 7))
(CAME O2 -5 Q)
(JRST 16)
(MOVE O1 (CONSTANT 8))
(CALL CLC-WARNING 1)
(JRST 10)
(LABEL 16) (MOVE O2 (CONSTANT 9))
(CAME O2 -5 Q)
(JRST 17)
(MOVE O1 (CONSTANT 10))
(CALL CLC-ERROR 1)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 17) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 18)
(MOVE O4 -3 Q)
(MOVE O1 -5 Q)
(MOVE O2 NIL)
(MOVE O3 O2)
(CALL CG-OPTIONAL-ARG 4)
(JRST 10)
(LABEL 18) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 19)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 -3 Q)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 O5)
(CALL CG-OPTIONAL-ARG 4)
(JRST 10)
(LABEL 19) (SKIPA)
(JRST 20)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 11))
(CALL CLC-ERROR 2)
(LABEL 20)
(LABEL 10) (MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O1 0 O1)
(MOVEM O1 -5 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 0 O1)
(JUMPN O1 22)
(MOVE O1 (CONSTANT 12))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 13))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 (SPECIAL 13))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 13))
(MOVE O1 O5)
(LABEL 22) (MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-OPTIONAL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARGLIST GIVEN)))
(%PUT (QUOTE CG-OPTIONAL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-OPTIONAL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-OPTIONAL-ARG EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY))
#0_(SKIP-TAG (O1 O2 O3 O4 O5 O6 NIL) PUSH VARS-UPSTREAM MAX-ARGS T CONSTANT MOVEM LAP-CODE JRST *LABEL-COUNTER*)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVEM O3 -4 Q)
(MOVEM O4 -3 Q)
(SKIPE NIL (SPECIAL 0))
(JRST 5)
(SKIPE NIL -4 Q)
(JRST 5)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -3 Q)
(CALL MEMQ 2)
(JUMPE O1 7)
(MOVE O2 -3 Q)
(JRST 8)
(LABEL 7) (MOVE O2 (CONSTANT 2))
(LABEL 8) (MOVE O1 -5 Q)
(CALL EASYP 2)
(SKIPN NIL O1)
(LABEL 5) (JRST 4)
(MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(CALL CG-BIND-ARG 2)
(MOVE O1 (SPECIAL 4))
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 9)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -2 Q)
(MOVE O2 (SPECIAL 4))
(MOVE O1 O5)
(CALL FINISH-FRAME 2)
(MOVE O2 -3 Q)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O4 (CONSTANT 5))
(MOVE O1 -6 Q)
(MOVE O2 -3 Q)
(MOVE O3 NIL)
(CALL CG-BIND-ARG 4)
(SKIPN NIL -4 Q)
(JRST 11)
(MOVE O1 (CONSTANT 5))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(JRST 13)
(MOVEM NIL -1 Q)
(LABEL 13) (MOVE O1 NIL)
(CALL NEW-VAR-TEMP 1)
(MOVE O3 O1)
(MOVE O1 -4 Q)
(MOVE O2 -1 Q)
(CALL CG-BIND-ARG 3)
(MOVE O1 -4 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 7))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(LABEL 11) (MOVE O1 (SPECIAL 10))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 10))
(MOVEM O1 (SPECIAL 0))
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O1 (SPECIAL 4))
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(LABEL 9)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE CG-OPTIONAL-ARG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (V INIT VP GIVEN)))
(%PUT (QUOTE CG-OPTIONAL-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-OPTIONAL-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_ENTRY-OUT EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* ENTRY-POINTS LABEL LAP-CODE)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE ENTRY-OUT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (&AUX (TAG (NEW-LABEL)))))
(%PUT (QUOTE ENTRY-OUT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE ENTRY-OUT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-REST EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(SKIP-TAG "Ill-formed &REST arg." (&OPTIONAL &REST &KEY &AUX &ALLOW-OTHER-KEYWORDS) "~S in illegal place in arglist." T *RESTP* *LABEL-COUNTER* JRST LAP-CODE MAX-ARGS 6 N 5 MOVEI W2 (ICALL RESTX) ICALL (REST1 REST2 REST3 REST4 REST5) (ICALL RESTN) LABEL &KEY &AUX "Illicit substances after &REST arg.")
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O2 (SPECIAL 0))
(MOVEM O3 -8 Q)
(MOVEM NIL -7 Q)
(MOVEM NIL -6 Q)
(MOVEM NIL -5 Q)
(MOVE O1 -9 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O1 (CONSTANT 1))
(CALL CLC-ERROR 1)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -9 Q)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(MOVEM O1 -4 Q)
(MOVE O2 (CONSTANT 2))
(CALL MEMQ 2)
(JUMPE O1 9)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 3))
(CALL CLC-ERROR 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 9) (MOVE O1 -7 Q)
(CALL TEST-VARNAME 1)
(JUMPN O1 10)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 10) (MOVE O1 (CONSTANT 4))
(MOVEM O1 (SPECIAL 5))
(MOVE O1 (SPECIAL 6))
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVEM O1 (SPECIAL 6))
(MOVEM O1 -6 Q)
(CALL ENTRY-OUT 0)
(MOVE O1 -8 Q)
(CALL RETNIL 1)
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O5 (SPECIAL 9))
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O1 O5)
(CALL < 2)
(JUMPE O1 13)
(MOVE O5 (SPECIAL 9))
(MOVEM O5 -3 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(LABEL 18) (MOVE O5 (SPECIAL 11))
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 12))
(MOVE O1 O5)
(CALL = 2)
(JUMPE O1 19)
(CALL ENTRY-OUT 0)
(MOVE O3 (SPECIAL 9))
(MOVE O1 (CONSTANT 13))
(MOVE O2 (CONSTANT 14))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O1 (CONSTANT 15))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(UNBIND 1)
(JRST 14)
(LABEL 19) (CALL ENTRY-OUT 0)
(MOVE O5 (SPECIAL 11))
(MOVEM O5 0 Q)
(MOVE O2 (SPECIAL 9))
(MOVE O1 O5)
(CALL - 2)
(CALL 1+ 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 13))
(MOVE O2 (CONSTANT 14))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O5 (SPECIAL 11))
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 17))
(MOVE O1 O5)
(CALL NTHCDR 2)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 16))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O1 (SPECIAL 11))
(CALL 1+ 1)
(MOVEM O1 (SPECIAL 11))
(JRST 18)
(LABEL 14) (JRST 12)
(LABEL 13) (SKIPA)
(JRST 21)
(CALL ENTRY-OUT 0)
(MOVE O3 (SPECIAL 9))
(MOVE O1 (CONSTANT 13))
(MOVE O2 (CONSTANT 14))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O1 (CONSTANT 18))
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(LABEL 21)
(LABEL 12) (MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 19))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(SKIPN NIL (SPECIAL 0))
(JRST 23)
(MOVE O1 -8 Q)
(CALL FIX-FINAL-OPTIONAL 1)
(LABEL 23) (MOVE O2 -8 Q)
(MOVE O1 -7 Q)
(CALL CG-BIND-ARG 2)
(MOVE O1 (SPECIAL 9))
(CALL 1+ 1)
(MOVE O2 O1)
(MOVE O1 NIL)
(CALL FINISH-FRAME 2)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPN O1 25)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 20))
(CAME O2 -4 Q)
(JRST 27)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -7 Q)
(MOVE O1 O5)
(CALL CG-KEYS 2)
(JRST 25)
(LABEL 27) (MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 21))
(CAME O2 -4 Q)
(JRST 28)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(CALL CG-BIND-AUXEN 1)
(JRST 25)
(LABEL 28) (SKIPA)
(JRST 29)
(MOVE O1 (CONSTANT 22))
(CALL CLC-ERROR 1)
(LABEL 29)
(LABEL 25) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (UNBIND 1)
(SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE CG-REST) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARGLIST SKIP-TAG GIVEN)))
(%PUT (QUOTE CG-REST) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-REST) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FIX-FINAL-OPTIONAL EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(JRST SKIP-TAG LAP-CODE :TEST EQUAL (O1 O2 O3 O4 O5 O6 NIL) MOVE (NIL) MOVEM (0) LABEL FF-CODE)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -2 Q)
(MOVEM NIL -3 Q)
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O5 (SPECIAL 2))
(MOVEM O5 0 Q)
(MOVE O4 (CONSTANT 4))
(MOVE O2 O5)
(MOVE O3 (CONSTANT 3))
(CALL MEMBER 4)
(MOVEM O1 -1 Q)
(MOVE O2 (CONSTANT 5))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 3)
(MOVE O3 (CONSTANT 7))
(MOVE O1 (CONSTANT 6))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL LIST 1)
(MOVE O2 O1)
(JRST 4)
(LABEL 3) (MOVE O4 (CONSTANT 9))
(MOVE O1 (CONSTANT 8))
(MOVE O2 NIL)
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL LIST 1)
(MOVE O2 O1)
(LABEL 4) (MOVE O1 -1 Q)
(CALL INST-OUT-SPLICE 2)
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 11))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 11))
(SKIPN NIL -3 Q)
(JRST 5)
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(JRST 6)
(LABEL 5) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 6) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE FIX-FINAL-OPTIONAL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (SPOT &AUX FF-FLAG)))
(%PUT (QUOTE FIX-FINAL-OPTIONAL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FIX-FINAL-OPTIONAL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-KEYS EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*CHECK-KEYWORDS-AT-RUNTIME* LISP::KEYWORD-TEST QUOTE &AUX &ALLOW-OTHER-KEYS "Non-symbol used as variable name." "Ill-formed keyword item in lambda list.")
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(MOVEM NIL -6 Q)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVEM NIL -4 Q)
(LABEL 7) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(SKIPN NIL -8 Q)
(JRST 10)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -9 Q)
(CALL LIST 3)
(MOVEM O1 -3 Q)
(MOVE O2 NIL)
(CALL CG-FORM 2)
(JRST 11)
(LABEL 10) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 11) (JRST 3)
(LABEL 8) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 -6 Q)
(JRST 13)
(SKIPN NIL -8 Q)
(JRST 14)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -9 Q)
(CALL LIST 3)
(MOVEM O1 -3 Q)
(MOVE O2 NIL)
(CALL CG-FORM 2)
(LABEL 14) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(CALL CG-BIND-AUXEN 1)
(JRST 3)
(LABEL 13) (MOVE O2 (CONSTANT 4))
(CAME O2 -6 Q)
(JRST 16)
(MOVE O1 NIL)
(MOVEM O1 -8 Q)
(JRST 12)
(LABEL 16) (MOVE O1 -6 Q)
(CALL SYMBOLP 1)
(JUMPE O1 17)
(MOVE O1 -6 Q)
(CALL LISP::MAKE-KEYWORD 1)
(MOVEM O1 -7 Q)
(MOVE O5 -9 Q)
(MOVE O1 -6 Q)
(MOVE O2 -7 Q)
(MOVE O3 NIL)
(MOVE O4 O3)
(CALL CG-KEY 5)
(JRST 12)
(LABEL 17) (MOVE O1 -6 Q)
(CALL ATOM 1)
(JUMPE O1 18)
(MOVE O1 (CONSTANT 5))
(CALL CLC-ERROR 1)
(JRST 12)
(LABEL 18) (MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPE O1 19)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL LISP::MAKE-KEYWORD 1)
(MOVEM O1 -7 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O5 -9 Q)
(MOVE O1 -3 Q)
(MOVE O2 -7 Q)
(MOVE O3 -1 Q)
(MOVE O4 0 Q)
(CALL CG-KEY 5)
(JRST 12)
(LABEL 19) (MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL CONSP 1)
(JUMPE O1 21)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPE O1 21)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(CALL CONSP 1)
(JUMPE O1 21)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 21) (JRST 20)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O5 -9 Q)
(MOVE O1 -3 Q)
(MOVE O2 -7 Q)
(MOVE O3 -1 Q)
(MOVE O4 0 Q)
(CALL CG-KEY 5)
(JRST 12)
(LABEL 20) (SKIPA)
(JRST 23)
(MOVE O1 (CONSTANT 6))
(CALL CLC-ERROR 1)
(LABEL 23)
(LABEL 12) (MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O2 -4 Q)
(MOVE O1 -7 Q)
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 7)
(LABEL 3) (SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE CG-KEYS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VARLIST REST-VAR)))
(%PUT (QUOTE CG-KEYS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-KEYS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-KEY EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(*LABEL-COUNTER* T O2 LABEL LAP-CODE (DMOVE O3 0 O2) (DMOVE O1 0 O4) CAME O3 CONSTANT JUMPN O4 CAMN JUMPA MOVEM O1)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVEM O3 -6 Q)
(MOVEM O4 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -3 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -2 Q)
(SKIPN NIL -5 Q)
(JRST 4)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -5 Q)
(CALL CG-BIND 2)
(LABEL 4) (MOVE O2 (CONSTANT 2))
(MOVE O1 -4 Q)
(CALL CG-ATOMIC 2)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 (CONSTANT 5))
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 (CONSTANT 6))
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(SKIPE NIL -6 Q)
(JRST 8)
(SKIPE NIL -5 Q)
(LABEL 8) (JRST 7)
(SKIPN NIL -7 Q)
(JRST 10)
(MOVE O1 -7 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 11)
(LABEL 10) (MOVE O3 NIL)
(LABEL 11) (MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 8))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 11))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(JRST 6)
(LABEL 7) (SKIPA)
(JRST 12)
(SKIPN NIL -7 Q)
(JRST 13)
(MOVE O1 -7 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 14)
(LABEL 13) (MOVE O3 NIL)
(LABEL 14) (MOVE O1 (CONSTANT 12))
(MOVE O2 (CONSTANT 8))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 13))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 2))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(SKIPN NIL -5 Q)
(JRST 15)
(MOVE O1 -5 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 14))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(LABEL 15) (MOVE O2 (CONSTANT 15))
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(LABEL 12)
(LABEL 6) (MOVE O2 (CONSTANT 15))
(MOVE O1 -8 Q)
(CALL CG-BIND 2)
(SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-KEY) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VAR KEY INIT VARP REST-VAR)))
(%PUT (QUOTE CG-KEY) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-KEY) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-BIND-FN EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(T 1 *FREE-TEMPS* *FENV*)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVEM O3 -3 Q)
(MOVEM NIL -2 Q)
(MOVE O1 O2)
(CALL LISTP 1)
(JUMPE O1 3)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -1 Q)
(JRST 4)
(LABEL 3) (MOVEM NIL -1 Q)
(LABEL 4) (MOVE O2 -4 Q)
(JUMPN O2 5)
(MOVE O1 (CONSTANT 1))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 2))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (SPECIAL 2))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 2))
(MOVE O2 O5)
(LABEL 5) (MOVE O1 -1 Q)
(CALL MAKE-FENV 2)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(SKIPN NIL -3 Q)
(JRST 7)
(MOVE O2 -3 Q)
(MOVE O1 -5 Q)
(CALL SET-BOUND-FN 2)
(LABEL 7) (MOVE O1 -2 Q)
(MOVEI N 1)
(SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE CG-BIND-FN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FUN HOME FROM)))
(%PUT (QUOTE CG-BIND-FN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-BIND-FN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_SET-BOUND-FN EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*FENV* MOVEM *QREF* LAP-CODE)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O2 (SPECIAL 0))
(CALL ASSQ 2)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 4 O1)
(MOVEM O5 0 Q)
(MOVE O4 (SPECIAL 2))
(MOVE O1 (CONSTANT 1))
(MOVE O2 -3 Q)
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE SET-BOUND-FN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FUN FROM)))
(%PUT (QUOTE SET-BOUND-FN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SET-BOUND-FN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_EASYP EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T QUOTE EASY)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVEM NIL -2 Q)
(MOVEM NIL -1 Q)
(CALL TRANSFORM 1)
(MOVEM O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(CALL ENTRY-OUT 0)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL EASY-ATOMIC 2)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 0 Q)
(JRST 5)
(CALL ENTRY-OUT 0)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -3 Q)
(MOVE O1 O5)
(CALL CG-CONSTANT 2)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 2))
(MOVE O1 -2 Q)
(CALL GET 2)
(MOVEM O1 -1 Q)
(JUMPE O1 6)
(CALL ENTRY-OUT 0)
(MOVE O5 -1 Q)
(MOVEM O5 0 Q)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(MOVE O6 O5)
(FCALL 2)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O1 NIL)
(MOVEI N 1)
(LABEL 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE EASYP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE EASYP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE EASYP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_EASY-ATOMIC EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Illegal atomic form to eval: ~S" T PREDICATE SKIPN LAP-CODE INV-PREDICATE SKIPE (O1 O2 O3 O4 O5 O6) :TEST EQL MOVE (TAIL MULTIPLE) O1 (MOVEI N 1) PUSH Q O6 MOVEM *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(CALL NUMBERP 1)
(JUMPN1 O1 5)
(MOVE O1 -3 Q)
(CALL CHARACTERP 1)
(JUMPN1 O1 5)
(MOVE O1 -3 Q)
(CALL STRINGP 1)
(JUMPN1 O1 5)
(MOVE O1 -3 Q)
(CALL BIT-VECTOR-P 1)
(SKIPN NIL O1)
(LABEL 5) (JRST 4)
(MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL CG-CONSTANT 2)
(JRST 3)
(LABEL 4) (MOVE O1 -3 Q)
(CALL SYMBOLP 1)
(JUMPN O1 6)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 6) (SKIPE NIL -3 Q)
(JRST 7)
(MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL CG-CONSTANT 2)
(JRST 3)
(LABEL 7) (MOVE O2 (CONSTANT 1))
(CAME O2 -3 Q)
(JRST 8)
(MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL CG-CONSTANT 2)
(JRST 3)
(LABEL 8) (MOVE O1 -3 Q)
(CALL KEYWORDP 1)
(JUMPE O1 9)
(MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL CG-CONSTANT 2)
(JRST 3)
(LABEL 9) (SKIPA)
(JRST 10)
(MOVE O5 -2 Q)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 -1 Q)
(JRST 12)
(MOVE O1 -3 Q)
(CALL EASYREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(JRST 11)
(LABEL 12) (MOVE O2 (CONSTANT 5))
(CAME O2 -1 Q)
(JRST 13)
(MOVE O1 -3 Q)
(CALL EASYREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(JRST 11)
(LABEL 13) (MOVE O4 (CONSTANT 9))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 7))
(MOVE O3 (CONSTANT 8))
(CALL MEMBER 4)
(JUMPE O1 14)
(MOVE O1 -3 Q)
(CALL EASYREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(JRST 11)
(LABEL 14) (MOVE O4 (CONSTANT 9))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O3 (CONSTANT 8))
(CALL MEMBER 4)
(JUMPE O1 15)
(MOVE O1 -3 Q)
(CALL EASYREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 12))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 (CONSTANT 13))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(JRST 11)
(LABEL 15) (MOVE O2 (CONSTANT 14))
(CAME O2 -1 Q)
(JRST 16)
(MOVE O1 -3 Q)
(CALL EASYREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 14))
(MOVE O2 (CONSTANT 15))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(JRST 11)
(LABEL 16) (SKIPA)
(JRST 17)
(MOVE O1 -3 Q)
(CALL EASYREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 16))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (SPECIAL 18))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 18)
(MOVE O1 (SPECIAL 19))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 19)
(LABEL 18) (MOVE O4 NIL)
(LABEL 19) (MOVE O1 (CONSTANT 17))
(MOVE O2 (CONSTANT 16))
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(LABEL 17)
(LABEL 11)
(LABEL 10)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE EASY-ATOMIC) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE EASY-ATOMIC) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE EASY-ATOMIC) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_EASYREF EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(VARS-UPSTREAM (O1 O2 O3 O4 O5 O6 NIL) *QREF* LISP::GLOBALLY-SPECIAL-IN-COMPILER LISP::GLOBALLY-SPECIAL SPECIAL VARS-GRIPED-ABOUT "~S not declared or bound, assuming special." UNKNOWN-FREE-VARS)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVEM NIL 0 Q)
(MOVE O2 (SPECIAL 0))
(CALL ASSQ 2)
(MOVE O1 1 O1)
(MOVEM O1 0 Q)
(JUMPE O1 4)
(MOVE O2 (CONSTANT 1))
(CALL MEMQ 2)
(JUMPE O1 5)
(MOVE O1 0 Q)
(CALL LIST 1)
(JRST 6)
(LABEL 5) (MOVE O2 (SPECIAL 2))
(MOVE O1 0 Q)
(CALL LIST 2)
(LABEL 6) (JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(MOVE O1 -1 Q)
(CALL GET 2)
(JUMPN1 O1 8)
(MOVE O2 (CONSTANT 4))
(MOVE O1 -1 Q)
(CALL GET 2)
(SKIPN NIL O1)
(LABEL 8) (JRST 7)
(MOVE O1 -1 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(CALL LIST 1)
(JRST 3)
(LABEL 7) (SKIPA)
(JRST 9)
(MOVE O2 (SPECIAL 6))
(MOVE O1 -1 Q)
(CALL MEMQ 2)
(JUMPN O1 11)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 7))
(CALL CLC-WARNING 2)
(MOVE O2 (SPECIAL 8))
(MOVE O1 -1 Q)
(CALL ADJOIN 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O2 (SPECIAL 6))
(MOVE O1 -1 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(LABEL 11) (MOVE O1 -1 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(CALL LIST 1)
(LABEL 9)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE EASYREF) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE EASYREF) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE EASYREF) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LAMBDA &KEY FUNCALL FUNCTION LET "Function must be a symbol or lambda form: ~S" (DEFUN MACRO EVAL-WHEN DEFCONSTANT DEFVAR DEFPARAMETER) *FENV* LISP::MACRO-IN-COMPILER DECLARE SYNONYM CLC-TRANSFORMS %PASS%)
(CODE-START)
(LABEL 1) (MOVE O2 NIL)
(LABEL 2) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVEM NIL -3 Q)
(LABEL 8) (MOVE O1 -5 Q)
(CALL SYMBOLP 1)
(JUMPE O1 10)
(MOVE O1 -5 Q)
(CALL TRANSFORM-SYMBOL 1)
(JRST 4)
(LABEL 10) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 4)
(LABEL 11) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPN O1 12)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL CONSP 1)
(JUMPE O1 15)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 -2 Q)
(LABEL 15) (JRST 14)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL MEMQ 2)
(JUMPE O1 17)
(MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O1 -5 Q)
(MOVE O3 1 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -1 Q)
(CALL LIST* 3)
(JRST 18)
(LABEL 17) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -5 Q)
(MOVE O2 1 O1)
(MOVE O1 O5)
(CALL LAMBDA-TO-LET 2)
(MOVEM O1 -1 Q)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O3 1 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 -1 Q)
(CALL LIST* 3)
(LABEL 18) (MOVEM O1 -5 Q)
(JRST 8)
(LABEL 14) (SKIPA)
(JRST 19)
(MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 5))
(CALL CLC-ERROR 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 4)
(LABEL 19) (JRST 9)
(LABEL 12) (SKIPN NIL -4 Q)
(JRST 22)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL MEMQ 2)
(SKIPN NIL O1)
(LABEL 22) (JRST 21)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 4)
(LABEL 21) (SKIPN NIL (SPECIAL 7))
(JRST 25)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (SPECIAL 7))
(MOVE O1 O5)
(CALL ASSQ 2)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(SKIPN NIL O1)
(LABEL 25) (JRST 24)
(MOVE O1 -3 Q)
(SKIPE NIL 1 O1)
(JRST 28)
(MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O1 -5 Q)
(MOVE O3 1 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -1 Q)
(CALL LIST* 3)
(MOVEM O1 -5 Q)
(MOVEI N 1)
(JRST 4)
(LABEL 28) (SKIPA)
(JRST 29)
(MOVE O1 -3 Q)
(MOVE O5 4 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -5 Q)
(JRST 8)
(LABEL 29) (JRST 9)
(LABEL 24) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O1 O5)
(CALL GET 2)
(MOVEM O1 -3 Q)
(JUMPE O1 31)
(MOVE O5 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -5 Q)
(JRST 8)
(LABEL 31) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL MACRO-FUNCTION 1)
(MOVEM O1 -3 Q)
(JUMPE O1 32)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 9))
(CAME O2 -2 Q)
(JRST 34)
(MOVEI N 1)
(JRST 4)
(LABEL 34) (SKIPA)
(JRST 35)
(MOVE O5 -3 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -5 Q)
(JRST 8)
(LABEL 35) (JRST 9)
(LABEL 32) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O1 O5)
(CALL GET 2)
(MOVEM O1 -3 Q)
(JUMPE O1 37)
(MOVE O1 -5 Q)
(MOVE O2 1 O1)
(MOVE O1 -3 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(JRST 8)
(LABEL 37) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL GET 2)
(MOVEM O1 -1 Q)
(LABEL 43) (SKIPE NIL -1 Q)
(JRST 44)
(JRST 39)
(JRST1 39)
(LABEL 44) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -3 Q)
(MOVE O2 (CONSTANT 12))
(CAMN O2 -3 Q)
(JRST 47)
(MOVEM O1 -5 Q)
(JRST1 39)
(LABEL 47) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(JRST 43)
(LABEL 39) (JRST 38)
(JRST 8)
(LABEL 38) (SKIPA)
(JRST 49)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 4)
(LABEL 49)
(LABEL 9) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 4) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM &OPTIONAL AT-TOP-LEVEL)))
(%PUT (QUOTE TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_TRANSFORM-SYMBOL EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LISP::CONSTANT-IN-COMPILER LISP::CONSTANT-VALUE QUOTE LISP::%CONSTANT)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(CALL GET 2)
(JUMPE O1 4)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -2 Q)
(CALL GET 2)
(MOVEM O1 -1 Q)
(CALL CHARACTERP 1)
(JUMPN1 O1 7)
(MOVE O1 -1 Q)
(CALL NUMBERP 1)
(JUMPN1 O1 7)
(MOVE O1 -1 Q)
(CALL LISTP 1)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 0 Q)
(JRST 8)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 8)
(LABEL 7) (JRST 6)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 5)
(LABEL 6) (SKIPA)
(JRST 10)
(MOVE O1 -2 Q)
(MOVEI N 1)
(LABEL 10)
(LABEL 5) (JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(MOVE O1 -2 Q)
(CALL GET 2)
(JUMPE O1 12)
(MOVE O1 -2 Q)
(CALL SYMBOL-VALUE 1)
(MOVEM O1 -1 Q)
(CALL NUMBERP 1)
(JUMPN1 O1 15)
(MOVE O1 -1 Q)
(CALL CHARACTERP 1)
(SKIPN NIL O1)
(LABEL 15) (JRST 14)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 13)
(LABEL 14) (MOVE O1 -1 Q)
(CALL SYMBOLP 1)
(JUMPE O1 16)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(JRST 13)
(LABEL 16) (SKIPA)
(JRST 17)
(MOVE O1 -2 Q)
(MOVEI N 1)
(LABEL 17)
(LABEL 13) (JRST 3)
(LABEL 12) (SKIPA)
(JRST 19)
(MOVE O1 -2 Q)
(MOVEI N 1)
(LABEL 19)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE TRANSFORM-SYMBOL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE TRANSFORM-SYMBOL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE TRANSFORM-SYMBOL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-FORM EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(QUOTE *NOTINLINES* CG DECLARED-FUNCTION-TYPE EXPR)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVEM NIL -2 Q)
(MOVEM NIL -1 Q)
(CALL TRANSFORM 1)
(MOVEM O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL CG-ATOMIC 2)
(JRST 3)
(LABEL 4) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 5)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -3 Q)
(MOVE O1 O5)
(CALL CG-CONSTANT 2)
(JRST 3)
(LABEL 5) (MOVE O2 (SPECIAL 1))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 6)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL CG-EXPR-CALL 2)
(JRST 3)
(LABEL 6) (MOVE O2 (CONSTANT 2))
(MOVE O1 -2 Q)
(CALL GET 2)
(MOVEM O1 -1 Q)
(JUMPE O1 7)
(MOVE O5 O1)
(MOVEM O5 0 Q)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(MOVE O6 O5)
(FCALL 2)
(JRST 3)
(LABEL 7) (MOVE O2 (CONSTANT 3))
(MOVE O1 -2 Q)
(CALL GET 2)
(MOVEM O1 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 4))
(CAME O2 0 Q)
(JRST 8)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL CG-EXPR-CALL 2)
(JRST 3)
(LABEL 8) (SKIPA)
(JRST 9)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(CALL LENGTH 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(CALL ASSUME-EXPR 2)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 9)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-FORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE CG-FORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-FORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-CONSTANT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((NIL) :TEST EQL PREDICATE (SKIPA) LAP-CODE INV-PREDICATE (TAIL MULTIPLE) MOVE O1 CONSTANT (MOVEI N 1) (O1 O2 O3 O4 O5 O6) PUSH Q O5 MOVEM *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O5 O2)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 2))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 5)
(SKIPN NIL -3 Q)
(JRST 6)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 7)
(LABEL 6) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 7) (JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 6))
(CAME O2 -1 Q)
(JRST 8)
(SKIPE NIL -3 Q)
(JRST 9)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 10)
(LABEL 9) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 10) (JRST 3)
(LABEL 8) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 7))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 11)
(SKIPN NIL -3 Q)
(JRST 12)
(MOVE O1 -3 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 13)
(LABEL 12) (MOVE O3 NIL)
(LABEL 13) (MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 9))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 (CONSTANT 11))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 11) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 12))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 14)
(SKIPN NIL -3 Q)
(JRST 15)
(MOVE O1 -3 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 16)
(LABEL 15) (MOVE O3 NIL)
(LABEL 16) (MOVE O1 (CONSTANT 8))
(MOVE O2 -2 Q)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 14) (MOVE O2 (CONSTANT 13))
(CAME O2 -1 Q)
(JRST 17)
(SKIPN NIL -3 Q)
(JRST 18)
(MOVE O1 -3 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 19)
(LABEL 18) (MOVE O3 NIL)
(LABEL 19) (MOVE O1 (CONSTANT 13))
(MOVE O2 (CONSTANT 14))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 17) (SKIPA)
(JRST 20)
(SKIPN NIL -3 Q)
(JRST 21)
(MOVE O1 -3 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 22)
(LABEL 21) (MOVE O3 NIL)
(LABEL 22) (MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 15))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 (SPECIAL 17))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 23)
(MOVE O1 (SPECIAL 18))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 24)
(LABEL 23) (MOVE O4 NIL)
(LABEL 24) (MOVE O1 (CONSTANT 16))
(MOVE O2 (CONSTANT 15))
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(LABEL 20)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-CONSTANT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE CG-CONSTANT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-CONSTANT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-ATOMIC EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*VENV* T "Illegal atomic form to eval: ~S" PREDICATE SKIPN LAP-CODE INV-PREDICATE SKIPE (TAIL MULTIPLE) :TEST EQL MOVE O1 (MOVEI N 1) (O1 O2 O3 O4 O5 O6) PUSH Q O5 MOVEM *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(SKIPE NIL -4 Q)
(JRST 4)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -5 Q)
(CALL ASSQ 2)
(MOVEM O1 -3 Q)
(SKIPN NIL -3 Q)
(JRST 5)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 -1 Q)
(MOVEM O2 3 O1)
(LABEL 5) (MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (SKIPE NIL -5 Q)
(JRST 7)
(MOVE O1 -4 Q)
(CALL RETNIL 1)
(JRST 3)
(LABEL 7) (MOVE O2 (CONSTANT 1))
(CAME O2 -5 Q)
(JRST 8)
(MOVE O1 -4 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 8) (MOVE O1 -5 Q)
(CALL NUMBERP 1)
(JUMPN1 O1 10)
(MOVE O1 -5 Q)
(CALL CHARACTERP 1)
(JUMPN1 O1 10)
(MOVE O1 -5 Q)
(CALL STRINGP 1)
(JUMPN1 O1 10)
(MOVE O1 -5 Q)
(CALL BIT-VECTOR-P 1)
(SKIPN NIL O1)
(LABEL 10) (JRST 9)
(MOVE O2 -4 Q)
(MOVE O1 -5 Q)
(CALL CG-CONSTANT 2)
(JRST 3)
(LABEL 9) (MOVE O1 -5 Q)
(CALL SYMBOLP 1)
(JUMPN O1 11)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 2))
(CALL CLC-ERROR 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 11) (MOVE O1 -5 Q)
(CALL KEYWORDP 1)
(JUMPE O1 12)
(MOVE O2 -4 Q)
(MOVE O1 -5 Q)
(CALL CG-CONSTANT 2)
(JRST 3)
(LABEL 12) (SKIPA)
(JRST 13)
(MOVE O5 -4 Q)
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 -3 Q)
(JRST 15)
(MOVE O1 -5 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 14)
(LABEL 15) (MOVE O2 (CONSTANT 6))
(CAME O2 -3 Q)
(JRST 16)
(MOVE O1 -5 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 7))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 14)
(LABEL 16) (MOVE O4 (CONSTANT 10))
(MOVE O1 -3 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O3 (CONSTANT 9))
(CALL MEMBER 4)
(JUMPE O1 17)
(MOVE O1 -5 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 (CONSTANT 12))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 (CONSTANT 13))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 14)
(LABEL 17) (MOVE O4 (CONSTANT 10))
(MOVE O1 -3 Q)
(MOVE O2 (CONSTANT 14))
(MOVE O3 (CONSTANT 9))
(CALL MEMBER 4)
(JUMPE O1 18)
(MOVE O1 -5 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 -4 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 14)
(LABEL 18) (MOVE O2 (CONSTANT 15))
(CAME O2 -3 Q)
(JRST 19)
(MOVE O1 -5 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 15))
(MOVE O2 (CONSTANT 16))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 14)
(LABEL 19) (SKIPA)
(JRST 20)
(MOVE O1 -5 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 (CONSTANT 17))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 (SPECIAL 19))
(MOVE O1 -4 Q)
(CALL MEMQ 2)
(JUMPE O1 21)
(MOVE O1 (SPECIAL 20))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 22)
(LABEL 21) (MOVE O4 NIL)
(LABEL 22) (MOVE O1 (CONSTANT 18))
(MOVE O2 (CONSTANT 17))
(MOVE O3 -4 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(LABEL 20)
(LABEL 14)
(LABEL 13)
(LABEL 3) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE CG-ATOMIC) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE CG-ATOMIC) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-ATOMIC) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-FUNREF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(PREDICATE SKIPN LAP-CODE INV-PREDICATE SKIPE (TAIL MULTIPLE) :TEST EQL MOVE O1 (MOVEI N 1) (O1 O2 O3 O4 O5 O6) PUSH Q O5 MOVEM *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O5 O2)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 -1 Q)
(JRST 4)
(CALL FUNREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 5)
(MOVE O1 -3 Q)
(CALL FUNREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O4 (CONSTANT 7))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 5))
(MOVE O3 (CONSTANT 6))
(CALL MEMBER 4)
(JUMPE O1 6)
(MOVE O1 -3 Q)
(CALL FUNREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 9))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (CONSTANT 10))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O4 (CONSTANT 7))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O3 (CONSTANT 6))
(CALL MEMBER 4)
(JUMPE O1 7)
(MOVE O1 -3 Q)
(CALL FUNREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(JRST 3)
(LABEL 7) (MOVE O2 (CONSTANT 12))
(CAME O2 -1 Q)
(JRST 8)
(MOVE O1 -3 Q)
(CALL FUNREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 12))
(MOVE O2 (CONSTANT 13))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(JRST 3)
(LABEL 8) (SKIPA)
(JRST 9)
(MOVE O1 -3 Q)
(CALL FUNREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 14))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O2 (SPECIAL 16))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 10)
(MOVE O1 (SPECIAL 17))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 11)
(LABEL 10) (MOVE O4 NIL)
(LABEL 11) (MOVE O1 (CONSTANT 15))
(MOVE O2 (CONSTANT 14))
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(LABEL 9)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-FUNREF) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE CG-FUNREF) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-FUNREF) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_RETT EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((NIL) :TEST EQL PREDICATE (SKIPA) LAP-CODE INV-PREDICATE (TAIL MULTIPLE) MOVE O1 CONSTANT T (MOVEI N 1) (O1 O2 O3 O4 O5 O6) PUSH Q O5 MOVEM *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 2))
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 5)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 6))
(CAME O2 -1 Q)
(JRST 6)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 7))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 7)
(MOVE O1 (CONSTANT 11))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 9)
(MOVE O3 NIL)
(LABEL 9) (MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 9))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 (CONSTANT 12))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 7) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 13))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 10)
(MOVE O1 (CONSTANT 11))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 12)
(MOVE O3 NIL)
(LABEL 12) (MOVE O1 (CONSTANT 8))
(MOVE O2 -2 Q)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 10) (MOVE O2 (CONSTANT 14))
(CAME O2 -1 Q)
(JRST 13)
(MOVE O1 (CONSTANT 11))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 15)
(MOVE O3 NIL)
(LABEL 15) (MOVE O1 (CONSTANT 14))
(MOVE O2 (CONSTANT 15))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 13) (SKIPA)
(JRST 16)
(MOVE O1 (CONSTANT 11))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 18)
(MOVE O3 NIL)
(LABEL 18) (MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 16))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 (SPECIAL 18))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 19)
(MOVE O1 (SPECIAL 19))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 20)
(LABEL 19) (MOVE O4 NIL)
(LABEL 20) (MOVE O1 (CONSTANT 17))
(MOVE O2 (CONSTANT 16))
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(LABEL 16)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE RETT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (WHERE)))
(%PUT (QUOTE RETT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE RETT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_RETNIL EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((NIL) :TEST EQL PREDICATE INV-PREDICATE (SKIPA) LAP-CODE (TAIL MULTIPLE) (MOVE O1 NIL) (MOVEI N 1) (O1 O2 O3 O4 O5 O6) MOVE PUSH (PUSH Q NIL) MOVEM *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 2))
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 5)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 4))
(CAME O2 -1 Q)
(JRST 6)
(MOVE O1 (CONSTANT 5))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 7))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 7)
(MOVE O1 (CONSTANT 8))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 (CONSTANT 9))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 3)
(LABEL 7) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 8)
(MOVE O3 (CONSTANT 0))
(MOVE O1 (CONSTANT 11))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 (CONSTANT 12))
(CAME O2 -1 Q)
(JRST 9)
(MOVE O1 (CONSTANT 13))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 3)
(LABEL 9) (SKIPA)
(JRST 10)
(MOVE O2 (SPECIAL 15))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 11)
(MOVE O1 (SPECIAL 16))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 12)
(LABEL 11) (MOVE O4 NIL)
(LABEL 12) (MOVE O1 (CONSTANT 14))
(MOVE O2 NIL)
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(LABEL 10)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE RETNIL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (WHERE)))
(%PUT (QUOTE RETNIL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE RETNIL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_RETO1 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((NIL O1) :TEST EQL PREDICATE (SKIPN NIL O1) LAP-CODE INV-PREDICATE (SKIPE NIL O1) (TAIL MULTIPLE) (MOVEI N 1) (O2 O3 O4 O5 O6) MOVE (O1) PUSH (PUSH Q O1) MOVEM O1 *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 2))
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 5)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 6))
(CAME O2 -1 Q)
(JRST 6)
(MOVE O1 (CONSTANT 7))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 7)
(MOVE O1 (CONSTANT 9))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 7) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 8)
(MOVE O3 (CONSTANT 12))
(MOVE O1 (CONSTANT 11))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 (CONSTANT 13))
(CAME O2 -1 Q)
(JRST 9)
(MOVE O1 (CONSTANT 14))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 9) (SKIPA)
(JRST 10)
(MOVE O2 (SPECIAL 17))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 11)
(MOVE O1 (SPECIAL 18))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 12)
(LABEL 11) (MOVE O4 NIL)
(LABEL 12) (MOVE O1 (CONSTANT 15))
(MOVE O2 (CONSTANT 16))
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(LABEL 10)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE RETO1) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (WHERE)))
(%PUT (QUOTE RETO1) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE RETO1) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_RETREGS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((NIL O1 TAIL MULTIPLE) :TEST EQL PREDICATE (SKIPN NIL O1) LAP-CODE INV-PREDICATE (SKIPE NIL O1) (O2 O3 O4 O5 O6) MOVE (O1) PUSH (PUSH Q O1) MOVEM O1 *TEMPS* *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 2))
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 5)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 6))
(CAME O2 -1 Q)
(JRST 6)
(MOVE O1 (CONSTANT 7))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 7)
(MOVE O3 (CONSTANT 10))
(MOVE O1 (CONSTANT 9))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 7) (MOVE O2 (CONSTANT 11))
(CAME O2 -1 Q)
(JRST 8)
(MOVE O1 (CONSTANT 12))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 3)
(LABEL 8) (SKIPA)
(JRST 9)
(MOVE O2 (SPECIAL 15))
(MOVE O1 -2 Q)
(CALL MEMQ 2)
(JUMPE O1 10)
(MOVE O1 (SPECIAL 16))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 11)
(LABEL 10) (MOVE O4 NIL)
(LABEL 11) (MOVE O1 (CONSTANT 13))
(MOVE O2 (CONSTANT 14))
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(LABEL 9)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE RETREGS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (WHERE)))
(%PUT (QUOTE RETREGS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE RETREGS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_RETMEM EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*QREF* (NIL) :TEST EQL PREDICATE SKIPN LAP-CODE INV-PREDICATE SKIPE (TAIL MULTIPLE) MOVE O1 (MOVEI N 1) (O1 O2 O3 O4 O5 O6) PUSH Q O5 MOVEM *TEMPS*)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -4 Q)
(CALL LIST 2)
(MOVEM O1 -2 Q)
(JRST 3)
(LABEL 4) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(CALL NUMBERP 1)
(JUMPE O1 5)
(MOVE O5 -4 Q)
(MOVEM O5 -2 Q)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 -4 Q)
(CALL LIST 1)
(MOVEM O1 -2 Q)
(LABEL 6)
(LABEL 3) (MOVE O5 -3 Q)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 3))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 1))
(MOVE O3 (CONSTANT 2))
(CALL MEMBER 4)
(JUMPE O1 9)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 8)
(LABEL 9) (MOVE O2 (CONSTANT 4))
(CAME O2 -1 Q)
(JRST 10)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 8)
(LABEL 10) (MOVE O2 (CONSTANT 7))
(CAME O2 -1 Q)
(JRST 11)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 8))
(MOVE O2 NIL)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 8)
(LABEL 11) (MOVE O4 (CONSTANT 3))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O3 (CONSTANT 2))
(CALL MEMBER 4)
(JUMPE O1 12)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 11))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 (CONSTANT 12))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 8)
(LABEL 12) (MOVE O4 (CONSTANT 3))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 13))
(MOVE O3 (CONSTANT 2))
(CALL MEMBER 4)
(JUMPE O1 13)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -3 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 8)
(LABEL 13) (MOVE O2 (CONSTANT 14))
(CAME O2 -1 Q)
(JRST 14)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 14))
(MOVE O2 (CONSTANT 15))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(JRST 8)
(LABEL 14) (SKIPA)
(JRST 15)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 16))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O2 (SPECIAL 18))
(MOVE O1 -3 Q)
(CALL MEMQ 2)
(JUMPE O1 16)
(MOVE O1 (SPECIAL 0))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 17)
(LABEL 16) (MOVE O4 NIL)
(LABEL 17) (MOVE O1 (CONSTANT 17))
(MOVE O2 (CONSTANT 16))
(MOVE O3 -3 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVEI N 1)
(LABEL 15)
(LABEL 8) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE RETMEM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE RETMEM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE RETMEM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_VARREF EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*VENV* T SPECIAL *REACH* *GRASP* *CENV* 0 MOVE O6 *QREF* LAP-CODE (O6) LISP::GLOBALLY-SPECIAL-IN-COMPILER LISP::GLOBALLY-SPECIAL VARS-GRIPED-ABOUT "~S not declared or bound, assuming special." UNKNOWN-FREE-VARS)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM NIL -6 Q)
(MOVEM NIL -5 Q)
(MOVE O2 (SPECIAL 0))
(CALL ASSQ 2)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(JUMPE O1 4)
(MOVE O5 O1)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -2 Q)
(MOVE O2 O5)
(MOVEM O2 3 O1)
(SKIPN NIL 1 O1)
(JRST 6)
(MOVE O1 -7 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL LIST 1)
(JRST 5)
(LABEL 6) (MOVE O1 -6 Q)
(MOVE O5 2 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (SPECIAL 3))
(MOVE O1 O5)
(CALL = 2)
(JUMPN O1 7)
(MOVE O1 -6 Q)
(MOVE O5 2 O1)
(MOVEM O5 -3 Q)
(MOVE O5 (SPECIAL 4))
(MOVEM O5 -2 Q)
(MOVE O2 -3 Q)
(MOVE O1 O5)
(CALL < 2)
(JUMPE O1 8)
(MOVE O1 (SPECIAL 4))
(JRST 9)
(LABEL 8) (MOVE O1 -3 Q)
(LABEL 9) (MOVEM O1 (SPECIAL 4))
(MOVE O1 -6 Q)
(SKIPE NIL 7 O1)
(JRST 11)
(MOVE O1 -6 Q)
(MOVE O5 6 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (SPECIAL 5))
(MOVE O1 O5)
(CALL ASSQ 2)
(MOVEM O1 -5 Q)
(SKIPE NIL 1 O1)
(JRST 12)
(MOVE O2 (CONSTANT 6))
(MOVE O1 -5 Q)
(CALL RPLACD 2)
(LABEL 12) (MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O1 1 O1)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL LISP::%RPLACD 2)
(MOVEM O1 -2 Q)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(MOVEM O2 7 O1)
(LABEL 11) (MOVE O1 -6 Q)
(MOVE O5 6 O1)
(MOVEM O5 -2 Q)
(MOVE O4 (SPECIAL 9))
(MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 8))
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 10))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 10))
(MOVE O1 -6 Q)
(MOVE O5 7 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL CONS 2)
(JRST 5)
(LABEL 7) (SKIPA)
(JRST 14)
(MOVE O1 -6 Q)
(MOVE O5 5 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (SPECIAL 9))
(MOVE O1 O5)
(CALL LIST 2)
(LABEL 14)
(LABEL 5) (JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 12))
(MOVE O1 -7 Q)
(CALL GET 2)
(JUMPN1 O1 17)
(MOVE O2 (CONSTANT 13))
(MOVE O1 -7 Q)
(CALL GET 2)
(SKIPN NIL O1)
(LABEL 17) (JRST 16)
(MOVE O1 -7 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL LIST 1)
(JRST 3)
(LABEL 16) (SKIPA)
(JRST 18)
(MOVE O2 (SPECIAL 14))
(MOVE O1 -7 Q)
(CALL MEMQ 2)
(JUMPN O1 20)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 15))
(CALL CLC-WARNING 2)
(MOVE O2 (SPECIAL 16))
(MOVE O1 -7 Q)
(CALL ADJOIN 2)
(MOVEM O1 (SPECIAL 16))
(MOVE O2 (SPECIAL 14))
(MOVE O1 -7 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 14))
(LABEL 20) (MOVE O1 -7 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL LIST 1)
(LABEL 18)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE VARREF) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE VARREF) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE VARREF) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FUNREF EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*FENV* T "~S locally defined to be a macro." *REACH* *GRASP* *CENV* 0 MOVE O6 *QREF* LAP-CODE (O6) CONSTANT)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM NIL -6 Q)
(MOVEM NIL -5 Q)
(MOVE O2 (SPECIAL 0))
(CALL ASSQ 2)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(JUMPE O1 4)
(MOVE O5 O1)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -2 Q)
(MOVE O2 O5)
(MOVEM O2 3 O1)
(SKIPN NIL 1 O1)
(JRST 6)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 2))
(CALL CLC-ERROR 2)
(JRST 5)
(LABEL 6) (MOVE O1 -6 Q)
(MOVE O5 2 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (SPECIAL 3))
(MOVE O1 O5)
(CALL = 2)
(JUMPN O1 7)
(MOVE O1 -6 Q)
(MOVE O5 2 O1)
(MOVEM O5 -3 Q)
(MOVE O5 (SPECIAL 4))
(MOVEM O5 -2 Q)
(MOVE O2 -3 Q)
(MOVE O1 O5)
(CALL < 2)
(JUMPE O1 8)
(MOVE O1 (SPECIAL 4))
(JRST 9)
(LABEL 8) (MOVE O1 -3 Q)
(LABEL 9) (MOVEM O1 (SPECIAL 4))
(MOVE O1 -6 Q)
(SKIPE NIL 6 O1)
(JRST 11)
(MOVE O1 -6 Q)
(MOVE O5 5 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (SPECIAL 5))
(MOVE O1 O5)
(CALL ASSQ 2)
(MOVEM O1 -5 Q)
(SKIPE NIL 1 O1)
(JRST 12)
(MOVE O2 (CONSTANT 6))
(MOVE O1 -5 Q)
(CALL RPLACD 2)
(LABEL 12) (MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O1 1 O1)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL LISP::%RPLACD 2)
(MOVEM O1 -2 Q)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(MOVEM O2 6 O1)
(LABEL 11) (MOVE O1 -6 Q)
(MOVE O5 5 O1)
(MOVEM O5 -2 Q)
(MOVE O4 (SPECIAL 9))
(MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 8))
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 10))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 10))
(MOVE O1 -6 Q)
(MOVE O5 6 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL CONS 2)
(JRST 5)
(LABEL 7) (SKIPA)
(JRST 14)
(MOVE O1 -6 Q)
(MOVE O5 4 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (SPECIAL 9))
(MOVE O1 O5)
(CALL LIST 2)
(LABEL 14)
(LABEL 5) (JRST 3)
(LABEL 4) (SKIPA)
(JRST 16)
(SKIPN NIL -7 Q)
(JRST 17)
(MOVE O1 -7 Q)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(JRST 18)
(LABEL 17) (MOVE O1 NIL)
(LABEL 18) (CALL LIST 1)
(LABEL 16)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE FUNREF) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE FUNREF) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FUNREF) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-EXPR-CALL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CALL LAP-CODE)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(CALL COMPILE-ARGS 1)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(CALL LENGTH 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 0))
(MOVE O2 0 Q)
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -2 Q)
(CALL RETREGS 1)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-EXPR-CALL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM WHERE)))
(%PUT (QUOTE CG-EXPR-CALL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-EXPR-CALL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_COMPILE-ARGS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(5 1 O1 *FREE-TEMPS* (NIL O1 O2 O3 O4 O5) LAP-CODE (O1 O2 O3 O4 O5))
(CODE-START)
(LABEL 1) (ADDI Q 12)
(MOVEM O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -10 Q)
(MOVEM NIL -9 Q)
(SKIPE NIL -11 Q)
(JRST 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 0))
(MOVE O1 -10 Q)
(CALL > 2)
(JUMPE O1 5)
(MOVE O1 -11 Q)
(CALL COMPILE-ARGS-GT5 1)
(JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 1))
(MOVE O1 -10 Q)
(CALL = 2)
(JUMPE O1 6)
(MOVE O1 -11 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 O5)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O1 -10 Q)
(CALL ENOUGH-TEMPS 1)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -7 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -6 Q)
(MOVE O1 -7 Q)
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(LABEL 12) (MOVE O1 -6 Q)
(SKIPE NIL 1 O1)
(JRST 13)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 (CONSTANT 4))
(MOVE O1 -10 Q)
(CALL NTHCDR 2)
(MOVE O2 0 O1)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(UNBIND 1)
(JRST 8)
(LABEL 13) (MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 (SPECIAL 3))
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O5 (SPECIAL 5))
(MOVEM O5 -5 Q)
(MOVE O2 -9 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -9 Q)
(MOVE O1 (SPECIAL 3))
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -5 Q)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 O5)
(MOVEM O1 -6 Q)
(JRST 12)
(LABEL 8) (MOVE O5 (CONSTANT 6))
(MOVEM O5 -7 Q)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -6 Q)
(MOVE O1 -9 Q)
(CALL NREVERSE 1)
(MOVEM O1 -5 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -4 Q)
(LABEL 19) (MOVE O2 -10 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 20)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O3 0 O1)
(MOVE O1 -3 Q)
(MOVE O2 O5)
(CALL INST-OUT-LOAD 3)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -5 Q)
(MOVE O1 0 Q)
(MOVEM O1 -4 Q)
(JRST 19)
(LABEL 15)
(LABEL 7)
(LABEL 3) (SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE COMPILE-ARGS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARGS)))
(%PUT (QUOTE COMPILE-ARGS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMPILE-ARGS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_COMPILE-ARGS-GT5 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(5 *FREE-TEMPS* 0 *QREF* (O1 O2 O3 O4 O5) MOVE LAP-CODE PUSH)
(CODE-START)
(LABEL 1) (ADDI Q 14)
(MOVEM O1 -13 Q)
(MOVE O1 (CONSTANT 0))
(CALL ENOUGH-TEMPS 1)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -12 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -11 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -10 Q)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -9 Q)
(MOVE O1 -12 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(LABEL 7) (MOVE O2 (CONSTANT 0))
(MOVE O1 -10 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -6 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(LABEL 14) (SKIPE NIL -7 Q)
(JRST 15)
(MOVE O5 (CONSTANT 4))
(MOVEM O5 -4 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(LABEL 21) (SKIPE NIL -4 Q)
(JRST 22)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 17)
(LABEL 22) (MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 (SPECIAL 3))
(MOVE O1 (CONSTANT 5))
(MOVE O2 -1 Q)
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 21)
(LABEL 17) (UNBIND 1)
(JRST 10)
(LABEL 15) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 (CONSTANT 7))
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 (SPECIAL 3))
(CALL 1- 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -4 Q)
(MOVEM O1 (SPECIAL 3))
(JRST 14)
(LABEL 10) (UNBIND 1)
(JRST 3)
(LABEL 8) (MOVE O1 -11 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 (SPECIAL 1))
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O1 (SPECIAL 1))
(MOVE O5 1 O1)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(MOVE O5 1 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -10 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -8 Q)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -7 Q)
(MOVEM O1 -11 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -10 Q)
(JRST 7)
(LABEL 3) (SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE COMPILE-ARGS-GT5) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARGS)))
(%PUT (QUOTE COMPILE-ARGS-GT5) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMPILE-ARGS-GT5) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_INST-OUT-LOAD EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(LAP-CODE MOVEM MOVE *TEMPS* CONSTANT T (NIL) *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 13)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE O2 (SPECIAL 0))
(MOVE O1 O3)
(CALL TAILP 2)
(JUMPE O1 3)
(MOVE O1 -10 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 O5)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -11 Q)
(CAME O2 -4 Q)
(JRST 7)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(CAME O2 -4 Q)
(JRST 7)
(MOVE O1 -8 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -4 Q)
(JRST 7)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 -4 Q)
(JRST 7)
(MOVE O2 (SPECIAL 3))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPN1 O1 9)
(MOVE O1 -6 Q)
(CALL CONSP 1)
(JUMPE O1 10)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 4))
(CAME O2 -4 Q)
(LABEL 10)
(LABEL 9)
(LABEL 7) (JRST 6)
(MOVE O1 (CONSTANT 5))
(MOVEM O1 -5 Q)
(JRST 5)
(LABEL 6) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -11 Q)
(CAME O2 -4 Q)
(JRST 13)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(SKIPE NIL 0 O1)
(JRST 13)
(MOVE O1 -8 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -4 Q)
(LABEL 13) (JRST 12)
(MOVE O1 (CONSTANT 5))
(MOVEM O1 -5 Q)
(MOVE O1 NIL)
(MOVEM O1 -6 Q)
(LABEL 12)
(LABEL 5) (SKIPN NIL -5 Q)
(JRST 16)
(MOVEM NIL -3 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 22) (MOVE O2 -10 Q)
(CAME O2 -2 Q)
(JRST 23)
(SKIPE NIL -6 Q)
(JRST 26)
(MOVE O1 -2 Q)
(MOVE O2 1 O1)
(MOVE O1 -3 Q)
(CALL RPLACD 2)
(MOVE O3 (CONSTANT 6))
(MOVE O1 (CONSTANT 2))
(MOVE O2 -12 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVEI N 1)
(JRST 25)
(LABEL 26) (SKIPA)
(JRST 27)
(SKIPN NIL -3 Q)
(JRST 28)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 -3 Q)
(CALL RPLACD 2)
(JRST 29)
(LABEL 28) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 0))
(LABEL 29) (MOVE O1 -6 Q)
(CALL SYMBOLP 1)
(JUMPE O1 30)
(MOVE O1 (SPECIAL 7))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 31)
(LABEL 30) (MOVE O4 NIL)
(LABEL 31) (MOVE O1 (CONSTANT 2))
(MOVE O2 -12 Q)
(MOVE O3 -6 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVEI N 1)
(LABEL 27)
(LABEL 25) (JRST 18)
(LABEL 23) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 0 Q)
(JRST 35)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -6 Q)
(CAMN O2 0 Q)
(JRST1 37)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -11 Q)
(CAME O2 0 Q)
(LABEL 37)
(LABEL 35) (JRST 33)
(MOVE O4 (SPECIAL 7))
(MOVE O1 (CONSTANT 2))
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVEI N 1)
(JRST 18)
(LABEL 33) (MOVE O1 -2 Q)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 22)
(LABEL 18) (JRST 17)
(LABEL 16) (MOVE O4 (SPECIAL 7))
(MOVE O1 (CONSTANT 2))
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVEI N 1)
(LABEL 17) (JRST 4)
(LABEL 3) (MOVE O4 (SPECIAL 7))
(MOVE O1 (CONSTANT 2))
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -9 Q)
(MOVE O2 (SPECIAL 0))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVEI N 1)
(LABEL 4) (SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE INST-OUT-LOAD) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (TO FROM LIMIT)))
(%PUT (QUOTE INST-OUT-LOAD) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE INST-OUT-LOAD) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_GENERATE-CLOSURE-VECTORS EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*VENV* OLD-VENV *FENV* OLD-FENV LAP-CODE *CONTOUR-POINTER* CONTOUR MOVE W2 CONSTANT O6 (ICALL ALLOC-CLOSURE-VECTOR) MOVEM W3 TOP-CONTOUR *REACH* *GRASP* (MOVE O6 0 O6) (MOVE O6 NIL) (0) (O6) ALLOC)
(CODE-START)
(LABEL 1) (ADDI Q 17)
(MOVEM NIL -16 Q)
(MOVEM NIL -15 Q)
(CALL MAKE-HASH-TABLE 0)
(MOVEM O1 -14 Q)
(CALL MAKE-HASH-TABLE 0)
(MOVEM O1 -13 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -12 Q)
(LABEL 7) (MOVE O2 (SPECIAL 1))
(CAME O2 -12 Q)
(JRST 8)
(JRST 3)
(LABEL 8) (MOVE O1 -12 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPN NIL 7 O1)
(JRST 10)
(MOVE O1 -12 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 5 O1)
(MOVEM O5 -10 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -9 Q)
(MOVE O1 -12 Q)
(MOVE O1 0 O1)
(MOVE O5 1 O1)
(MOVEM O5 -8 Q)
(MOVE O3 O5)
(MOVE O1 -10 Q)
(MOVE O2 -9 Q)
(CALL LISP::%PUTHASH 3)
(LABEL 10) (MOVE O1 -12 Q)
(MOVE O1 1 O1)
(MOVEM O1 -12 Q)
(JRST 7)
(LABEL 3) (MOVE O5 (SPECIAL 2))
(MOVEM O5 -12 Q)
(LABEL 16) (MOVE O2 (SPECIAL 3))
(CAME O2 -12 Q)
(JRST 17)
(JRST 12)
(LABEL 17) (MOVE O1 -12 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPN NIL 6 O1)
(JRST 19)
(MOVE O1 -12 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 4 O1)
(MOVEM O5 -10 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -9 Q)
(MOVE O1 -12 Q)
(MOVE O1 0 O1)
(MOVE O5 1 O1)
(MOVEM O5 -8 Q)
(MOVE O3 O5)
(MOVE O1 -10 Q)
(MOVE O2 -9 Q)
(CALL LISP::%PUTHASH 3)
(LABEL 19) (MOVE O1 -12 Q)
(MOVE O1 1 O1)
(MOVEM O1 -12 Q)
(JRST 16)
(LABEL 12) (MOVE O5 (SPECIAL 4))
(MOVEM O5 -12 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(LABEL 25) (MOVE O2 (SPECIAL 5))
(CAME O2 -12 Q)
(JRST 26)
(MOVE O2 (CONSTANT 6))
(CAME O2 -10 Q)
(JRST 30)
(MOVE O1 -9 Q)
(SKIPN NIL 1 O1)
(JRST 30)
(SKIPE NIL -16 Q)
(LABEL 30) (JRST 28)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(CALL 1+ 1)
(JUMPE O1 32)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(CALL 1+ 1)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 33)
(LABEL 32) (MOVE O3 NIL)
(LABEL 33) (MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 8))
(CALL LIST 3)
(MOVEM O1 -5 Q)
(MOVE O4 -7 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 10))
(MOVE O3 -8 Q)
(CALL LIST 4)
(MOVEM O1 -4 Q)
(MOVE O1 -9 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 -7 Q)
(MOVE O1 (CONSTANT 12))
(MOVE O2 (CONSTANT 13))
(MOVE O3 O5)
(CALL LIST 4)
(MOVE O4 O1)
(MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(MOVE O3 (CONSTANT 11))
(CALL LIST 4)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(CALL INST-OUT-STOMP 2)
(JRST 29)
(LABEL 28) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 29) (JRST 21)
(LABEL 26) (MOVE O2 (CONSTANT 14))
(CAME O2 -10 Q)
(JRST 35)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(CALL 1+ 1)
(JUMPE O1 36)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(CALL 1+ 1)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 37)
(LABEL 36) (MOVE O3 NIL)
(LABEL 37) (MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 8))
(CALL LIST 3)
(MOVEM O1 -6 Q)
(MOVE O5 (SPECIAL 15))
(MOVEM O5 -5 Q)
(MOVE O2 (SPECIAL 16))
(MOVE O1 O5)
(CALL > 2)
(JUMPE O1 38)
(MOVE O5 (CONSTANT 17))
(MOVEM O5 -5 Q)
(JRST 39)
(LABEL 38) (MOVE O5 (CONSTANT 18))
(MOVEM O5 -5 Q)
(LABEL 39) (MOVE O1 -9 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 19))
(MOVE O1 (CONSTANT 12))
(MOVE O2 (CONSTANT 13))
(MOVE O3 O5)
(CALL LIST* 4)
(MOVE O4 O1)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 (CONSTANT 11))
(CALL LIST 4)
(MOVEM O1 -16 Q)
(JRST 34)
(LABEL 35) (MOVE O2 -14 Q)
(MOVE O1 -8 Q)
(CALL GETHASH 2)
(MOVEM O1 -15 Q)
(JUMPE O1 40)
(MOVE O5 6 O1)
(MOVEM O5 -3 Q)
(MOVE O4 -7 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 10))
(MOVE O3 O5)
(CALL LIST 4)
(MOVEM O1 -5 Q)
(MOVE O1 -15 Q)
(MOVE O5 7 O1)
(MOVEM O5 -2 Q)
(MOVE O4 (CONSTANT 20))
(MOVE O1 -10 Q)
(MOVE O2 -9 Q)
(MOVE O3 O5)
(CALL LIST* 4)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(CALL INST-OUT-STOMP 2)
(JRST 34)
(LABEL 40) (MOVE O2 -13 Q)
(MOVE O1 -8 Q)
(CALL GETHASH 2)
(MOVEM O1 -15 Q)
(JUMPE O1 41)
(MOVE O5 5 O1)
(MOVEM O5 -3 Q)
(MOVE O4 -7 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 (CONSTANT 10))
(MOVE O3 O5)
(CALL LIST 4)
(MOVEM O1 -5 Q)
(MOVE O1 -15 Q)
(MOVE O5 6 O1)
(MOVEM O5 -2 Q)
(MOVE O4 (CONSTANT 20))
(MOVE O1 -10 Q)
(MOVE O2 -9 Q)
(MOVE O3 O5)
(CALL LIST* 4)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(CALL INST-OUT-STOMP 2)
(LABEL 41)
(LABEL 34) (MOVE O1 -12 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 21))
(CAME O2 -6 Q)
(JRST 44)
(MOVE O1 -12 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 -16 Q)
(CALL COPY-TREE 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(CALL INST-OUT-SPLICE 2)
(MOVE O1 -15 Q)
(MOVEM O1 -12 Q)
(LABEL 44) (MOVE O1 -12 Q)
(MOVE O1 1 O1)
(MOVEM O1 -12 Q)
(MOVE O1 0 O1)
(MOVEM O1 -11 Q)
(MOVE O1 0 O1)
(MOVEM O1 -10 Q)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -9 Q)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -8 Q)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JRST 25)
(LABEL 21) (SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE GENERATE-CLOSURE-VECTORS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (&AUX JUNK TEMP (CLOVAR (MAKE-HASH-TABLE)) (CLOFUN (MAKE-HASH-TABLE)))))
(%PUT (QUOTE GENERATE-CLOSURE-VECTORS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE GENERATE-CLOSURE-VECTORS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CLOSURE-VECTORS-GO-HOME EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*CENV* (MOVE O6 0 O6) 0 MOVEM O6 (0) *ENCLOSES* LAP-CODE ALLOC *TEMPS*)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM NIL -6 Q)
(MOVEM NIL -5 Q)
(MOVEM NIL -4 Q)
(MOVE O1 (SPECIAL 0))
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(LABEL 7) (MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVEM O1 -6 Q)
(MOVE O1 -2 Q)
(SKIPN NIL 1 O1)
(JRST 12)
(MOVE O1 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 O5)
(CALL > 2)
(SKIPN NIL O1)
(LABEL 12) (JRST 11)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 (CONSTANT 5))
(MOVE O1 (CONSTANT 3))
(MOVE O2 (CONSTANT 4))
(MOVE O3 O5)
(CALL LIST* 4)
(MOVEM O1 -1 Q)
(MOVE O2 -6 Q)
(CALL CONS 2)
(MOVEM O1 -6 Q)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(LABEL 11) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(LABEL 19) (SKIPN NIL -3 Q)
(JRST1 22)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 3))
(LABEL 22) (JRST 20)
(MOVE O1 -3 Q)
(MOVEM O1 -6 Q)
(JRST 15)
(LABEL 20) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(JRST 19)
(LABEL 15) (MOVE O1 -6 Q)
(CALL NREVERSE 1)
(MOVEM O1 -6 Q)
(SKIPN NIL (SPECIAL 6))
(JRST 23)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(LABEL 23) (MOVE O5 (SPECIAL 7))
(MOVEM O5 -3 Q)
(LABEL 29) (SKIPE NIL -3 Q)
(JRST 30)
(JRST 25)
(LABEL 30) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 8))
(CAME O2 -2 Q)
(JRST 33)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 -6 Q)
(CALL COPY-TREE 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL INST-OUT-SPLICE 2)
(MOVE O1 -4 Q)
(MOVEM O1 -3 Q)
(LABEL 33) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(JRST 29)
(LABEL 25) (SKIPN NIL -5 Q)
(JRST 35)
(MOVE O2 (SPECIAL 9))
(MOVE O1 -5 Q)
(CALL NCONC 2)
(MOVEM O1 (SPECIAL 9))
(MOVEI N 1)
(JRST 36)
(LABEL 35) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 36) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE CLOSURE-VECTORS-GO-HOME) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (&AUX JUNK CTEMPS TLC)))
(%PUT (QUOTE CLOSURE-VECTORS-GO-HOME) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CLOSURE-VECTORS-GO-HOME) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_FIX-QREFS EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*TEMPS* LAP-CODE (ALLOC DEALLOC) N ALLOC ADDI Q DEALLOC SUBI "missing qref in ~S")
(CODE-START)
(LABEL 1) (ADDI Q 11)
(SKIPE NIL (SPECIAL 0))
(JRST 4)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -10 Q)
(LABEL 9) (SKIPE NIL -10 Q)
(JRST 10)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 5)
(LABEL 10) (MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 O5)
(CALL MEMQ 2)
(JUMPE O1 12)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 -10 Q)
(CALL RPLACD 2)
(LABEL 12) (MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVEM O1 -10 Q)
(JRST 9)
(LABEL 5) (JRST 3)
(LABEL 4) (SKIPA)
(JRST 14)
(MOVE O1 (SPECIAL 0))
(CALL NREVERSE 1)
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (SPECIAL 0))
(CALL LENGTH 1)
(MOVEM O1 -10 Q)
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(LABEL 19) (MOVE O1 -8 Q)
(SKIPE NIL 1 O1)
(JRST 20)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE O2 (CONSTANT 4))
(CAME O2 -6 Q)
(JRST 23)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 0 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL - 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 (CONSTANT 6))
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(CALL LISP::%RPLACA 2)
(JRST 22)
(LABEL 23) (MOVE O2 (CONSTANT 7))
(CAME O2 -6 Q)
(JRST 24)
(MOVE O3 (SPECIAL 3))
(MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 6))
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(CALL LISP::%RPLACA 2)
(JRST 22)
(LABEL 24) (MOVE O1 -3 Q)
(CALL NUMBERP 1)
(JUMPE O1 25)
(MOVE O5 -7 Q)
(MOVEM O5 -2 Q)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -4 Q)
(CALL POSITION 2)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL - 2)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 O5)
(CALL LISP::%RPLACA 2)
(MOVE O5 -7 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 6))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 O5)
(CALL LISP::%RPLACA 2)
(JRST 22)
(LABEL 25) (SKIPN NIL -4 Q)
(JRST 27)
(MOVE O1 -4 Q)
(CALL SYMBOLP 1)
(JUMPE O1 27)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -4 Q)
(CALL MEMQ 2)
(SKIPN NIL O1)
(LABEL 27) (JRST 26)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 9))
(CALL ERROR 2)
(LABEL 26)
(LABEL 22) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -5 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -3 Q)
(JRST 19)
(LABEL 15) (UNBIND 1)
(LABEL 14)
(LABEL 3) (SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE FIX-QREFS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE FIX-QREFS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE FIX-QREFS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-FUNCTION EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CLOSURE)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(CALL BREAKOFF-NAME 0)
(MOVEM O1 0 Q)
(MOVE O4 (CONSTANT 0))
(MOVE O1 -1 Q)
(MOVE O2 0 Q)
(MOVE O3 -2 Q)
(CALL CG-FUNCTION1 4)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-FUNCTION) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-FUNCTION) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-FUNCTION) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FUNCTION) (QUOTE CG) (QUOTE CG-FUNCTION))
#_(LAP #0_CG-FUNCTION1 EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY))
#0_(LAMBDA FUNCTION-NAME FUNCTION-TYPE *REACH* *GRASP* 0 *QREF* "Ill-formed arg to FUNCTION: ~S")
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVEM O3 -4 Q)
(MOVEM O4 -3 Q)
(MOVEM NIL -7 Q)
(CALL SYMBOLP 1)
(JUMPE O1 4)
(MOVE O2 -4 Q)
(MOVE O1 -6 Q)
(CALL CG-FUNREF 2)
(JRST 3)
(LABEL 4) (MOVE O1 -6 Q)
(CALL CONSP 1)
(JUMPE O1 6)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(CALL CONSP 1)
(JUMPE O1 6)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 -2 Q)
(LABEL 6) (JRST 5)
(MOVE O1 -5 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -3 Q)
(SPEC-BIND (SPECIAL 2))
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (SPECIAL 3))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(MOVE O1 (SPECIAL 3))
(SPEC-BIND (SPECIAL 4))
(MOVEM O1 (SPECIAL 4))
(MOVE O5 (CONSTANT 5))
(MOVEM O5 0 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 6))
(MOVEM O1 (SPECIAL 6))
(MOVE O1 -6 Q)
(CALL COMPILE-ONE-LAMBDA 1)
(UNBIND 1)
(MOVE O1 (SPECIAL 4))
(MOVEM O1 -7 Q)
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -1 Q)
(MOVE O2 (SPECIAL 4))
(MOVE O1 O5)
(CALL > 2)
(JUMPE O1 8)
(MOVE O2 -4 Q)
(MOVE O1 -5 Q)
(CALL DEPOSIT-GENERATE-CLOSURE 2)
(JRST 9)
(LABEL 8) (MOVE O2 -4 Q)
(MOVE O1 -5 Q)
(CALL CG-CONSTANT 2)
(LABEL 9) (UNBIND 4)
(MOVE O2 (SPECIAL 4))
(MOVE O1 -7 Q)
(CALL < 2)
(JUMPE O1 10)
(MOVE O1 -7 Q)
(JRST 11)
(LABEL 10) (MOVE O1 (SPECIAL 4))
(LABEL 11) (MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 12)
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 7))
(CALL CLC-ERROR 2)
(LABEL 12)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE CG-FUNCTION1) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARG NAME WHERE WHAT &AUX GRASP)))
(%PUT (QUOTE CG-FUNCTION1) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-FUNCTION1) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_DEPOSIT-GENERATE-CLOSURE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T *ENCLOSES* *CENV* 0 O1 MOVE O2 *CVH* *QREF* LAP-CODE (ICALL CLOGEN))
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 (CONSTANT 0))
(MOVEM O1 (SPECIAL 1))
(MOVE O5 (SPECIAL 2))
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 7) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O1 0 Q)
(SKIPE NIL 1 O1)
(JRST 10)
(MOVE O2 (CONSTANT 3))
(MOVE O1 0 Q)
(CALL RPLACD 2)
(LABEL 10) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 7)
(LABEL 3) (MOVE O2 (CONSTANT 4))
(MOVE O1 -4 Q)
(CALL CG-CONSTANT 2)
(MOVE O5 (SPECIAL 7))
(MOVEM O5 0 Q)
(MOVE O4 (SPECIAL 8))
(MOVE O1 (CONSTANT 5))
(MOVE O2 (CONSTANT 6))
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 9))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 9))
(MOVE O1 (CONSTANT 10))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 9))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 9))
(MOVE O1 -3 Q)
(CALL RETO1 1)
(SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE DEPOSIT-GENERATE-CLOSURE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (NAME WHERE)))
(%PUT (QUOTE DEPOSIT-GENERATE-CLOSURE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE DEPOSIT-GENERATE-CLOSURE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-FUNCALL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*FREE-TEMPS* 1 MOVE O6 *QREF* LAP-CODE FCALL)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(SPEC-BIND (SPECIAL 0))
(MOVE O1 (CONSTANT 1))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 0))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (SPECIAL 0))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 0))
(MOVEM O5 -1 Q)
(MOVE O2 O5)
(MOVE O1 -3 Q)
(CALL CG-FORM 2)
(MOVE O1 -2 Q)
(CALL COMPILE-ARGS 1)
(MOVE O4 (SPECIAL 4))
(MOVE O1 (CONSTANT 2))
(MOVE O2 (CONSTANT 3))
(MOVE O3 -1 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -2 Q)
(CALL LENGTH 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -4 Q)
(CALL RETREGS 1)
(UNBIND 1)
(SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE CG-FUNCALL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-FUNCALL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-FUNCALL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FUNCALL) (QUOTE CG) (QUOTE CG-FUNCALL))
#_(LAP #0_CG-DEFUN EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*FREE-TEMPS* 1 LAMBDA SPECIAL CLOSURE %SP-SET-DEFINITION QUOTE SYMBOL-FUNCTION)
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVEM O2 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(CALL BREAKOFF-NAME 0)
(MOVEM O1 -5 Q)
(CALL BREAKOFF-NAME 0)
(MOVEM O1 -4 Q)
(SPEC-BIND (SPECIAL 0))
(MOVE O1 (CONSTANT 1))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 0))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 (SPECIAL 0))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 2))
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O4 (CONSTANT 4))
(MOVE O1 -2 Q)
(MOVE O2 -5 Q)
(MOVE O3 0 Q)
(CALL CG-FUNCTION1 4)
(MOVE O1 -4 Q)
(CALL COMPILE-TRANSPARENT-FUNCTION 1)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O2 NIL)
(CALL CG-FORM 2)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 -8 Q)
(CALL CG-FORM 2)
(UNBIND 1)
(SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE CG-DEFUN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-DEFUN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-DEFUN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DEFUN) (QUOTE CG) (QUOTE CG-DEFUN))
#_(LAP #0_COMPILE-TRANSPARENT-FUNCTION EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(FUNCTION-NAME FUNCTION-TYPE EXPR ENTRY-POINTS (0 1 2 3 4 5 6) *RESTP* CONSTANTS-LIST LAP-CODE ((CODE-START)) N LABEL MOVE O6 SPECIAL FCALL ((POPJ P)) *CLC-LAP-STREAM* *CLC-FASL-STREAM* *COMPILE-TO-LISP* *INTERNAL-FUNCTIONS*)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (CONSTANT 2))
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O1 (CONSTANT 4))
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(SPEC-BIND (SPECIAL 5))
(MOVEM NIL (SPECIAL 5))
(SPEC-BIND (SPECIAL 6))
(MOVEM NIL (SPECIAL 6))
(MOVE O1 (CONSTANT 8))
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(MOVE O5 (SPECIAL 3))
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O1 0 O1)
(SPEC-BIND (SPECIAL 9))
(MOVEM O1 (SPECIAL 9))
(LABEL 7) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(UNBIND 1)
(JRST 3)
(LABEL 8) (MOVE O5 (SPECIAL 7))
(MOVEM O5 -3 Q)
(MOVE O2 (SPECIAL 9))
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 0))
(MOVE O1 (CONSTANT 13))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 (CONSTANT 12))
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 9))
(MOVE O1 (CONSTANT 14))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O4 (CONSTANT 15))
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 0 Q)
(CALL LIST* 4)
(CALL COPY-TREE 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL NCONC 2)
(MOVEM O1 (SPECIAL 7))
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 (SPECIAL 9))
(JRST 7)
(LABEL 3) (MOVE O1 (SPECIAL 7))
(CALL MAKE-LAP-FUNCTION 1)
(MOVEM O1 (SPECIAL 7))
(SKIPN NIL (SPECIAL 16))
(JRST 10)
(MOVE O5 (SPECIAL 7))
(MOVEM O5 -5 Q)
(MOVE O2 (SPECIAL 16))
(MOVE O1 O5)
(CALL LAPRINT 2)
(LABEL 10) (SKIPN NIL (SPECIAL 17))
(JRST 12)
(MOVE O1 (SPECIAL 7))
(CALL MAKE-FASL 1)
(LABEL 12) (SKIPN NIL (SPECIAL 18))
(JRST 14)
(MOVE O1 (SPECIAL 7))
(CALL EVAL 1)
(JRST 15)
(LABEL 14) (MOVE O5 (SPECIAL 7))
(MOVEM O5 -5 Q)
(MOVE O2 (SPECIAL 19))
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 19))
(MOVEI N 1)
(LABEL 15) (UNBIND 5)
(UNBIND 1)
(SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE COMPILE-TRANSPARENT-FUNCTION) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FUNCTION-NAME)))
(%PUT (QUOTE COMPILE-TRANSPARENT-FUNCTION) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMPILE-TRANSPARENT-FUNCTION) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-SETQ EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(O1 MOVEM LAP-CODE)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL TEST-VARNAME 1)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(MOVE O1 -2 Q)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 0))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 -3 Q)
(CALL RETO1 1)
(SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-SETQ) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-SETQ) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-SETQ) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SETQ) (QUOTE CG) (QUOTE CG-SETQ))
#_(LAP #0_CG-PSETQ EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2 N "Unmatched pairs in PSETQ" 1 O1 MOVEM LAP-CODE *FREE-TEMPS* MOVE *QREF*)
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVEM O2 -8 Q)
(MOVE O5 1 O1)
(MOVEM O5 -7 Q)
(MOVE O1 O5)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 0))
(CALL FLOOR 2)
(MOVEM O1 -6 Q)
(SPEC-BIND (SPECIAL 1))
(MOVEM O1 (SPECIAL 1))
(MOVE O2 (SPECIAL 1))
(MOVE O1 (CONSTANT 0))
(CALL * 2)
(MOVEM O1 -5 Q)
(MOVE O1 -7 Q)
(CALL LENGTH 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN O1 4)
(MOVE O1 (CONSTANT 2))
(CALL CLC-ERROR 1)
(LABEL 4) (MOVE O5 (SPECIAL 1))
(MOVEM O5 -5 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O1 O5)
(CALL = 2)
(JUMPE O1 7)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(CALL TEST-VARNAME 1)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 (CONSTANT 4))
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 (CONSTANT 4))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(JRST 6)
(LABEL 7) (SKIPA)
(JRST 8)
(MOVE O1 (SPECIAL 1))
(CALL ENOUGH-TEMPS 1)
(MOVE O5 (SPECIAL 7))
(MOVEM O5 -4 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(LABEL 13) (SKIPE NIL -3 Q)
(JRST 14)
(UNBIND 1)
(JRST 9)
(LABEL 14) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 (SPECIAL 7))
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O1 (SPECIAL 7))
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 (SPECIAL 7))
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 13)
(LABEL 9) (MOVE O5 (SPECIAL 7))
(MOVEM O5 -4 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(LABEL 20) (SKIPE NIL -3 Q)
(JRST 21)
(UNBIND 1)
(JRST 16)
(LABEL 21) (MOVE O1 (SPECIAL 7))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 (SPECIAL 9))
(MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 4))
(MOVE O3 O5)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 (CONSTANT 4))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 (SPECIAL 7))
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 (SPECIAL 7))
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 20)
(LABEL 16)
(LABEL 8)
(LABEL 6) (MOVE O1 -8 Q)
(CALL RETNIL 1)
(UNBIND 1)
(SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE CG-PSETQ) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-PSETQ) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-PSETQ) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PSETQ) (QUOTE CG) (QUOTE CG-PSETQ))
#_(LAP #0_CG-MULTIPLE-VALUE-SETQ EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(TEST-VARNAME MULTIPLE ADJUST-VALUES LAP-CODE (O1 O2 O3 O4 O5) MOVEM POP W2)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O2 NIL)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 0))
(CALL MAPC 2)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 4))
(MOVEM O5 -2 Q)
(LABEL 10) (SKIPN NIL -3 Q)
(JRST1 13)
(SKIPE NIL -2 Q)
(LABEL 13) (JRST 11)
(JRST 6)
(LABEL 11) (MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 0 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 O5)
(MOVEM O1 -2 Q)
(JRST 10)
(LABEL 6) (MOVE O1 -6 Q)
(CALL LENGTH 1)
(CALL SETUP-MVP 1)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(CALL REVERSE 1)
(MOVEM O1 -3 Q)
(LABEL 19) (SKIPE NIL -3 Q)
(JRST 20)
(JRST 15)
(LABEL 20) (MOVE O1 -3 Q)
(MOVE O1 0 O1)
(CALL VARREF 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 (CONSTANT 7))
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(JRST 19)
(LABEL 15)
(LABEL 5)
(LABEL 3) (MOVE O1 -7 Q)
(CALL RETO1 1)
(SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-MULTIPLE-VALUE-SETQ) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-MULTIPLE-VALUE-SETQ) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-MULTIPLE-VALUE-SETQ) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MULTIPLE-VALUE-SETQ) (QUOTE CG) (QUOTE CG-MULTIPLE-VALUE-SETQ))
#_(LAP #0_CG-LET* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((PREDICATE INV-PREDICATE) SPECIAL O1 IGNORES (IGNORE) *NOTINLINES* *ALL-NUMBERS-ARE-FIXNUMS* NEW-TYPE-DECLS NEW-SPECIALS *FREE-TEMPS* *HAND* *CVH* 1 *CENV* OLD-VENV *VENV* OLD-FENV *FENV* *BENV* SPECBIND 0 *CONTOUR-POINTER* CONTOUR *QREF* LAP-CODE "Bad item in Let* binding list: ~S" UNBIND *ENCLOSES*)
(CODE-START)
(LABEL 1) (ADDI Q 15)
(MOVEM O1 -14 Q)
(MOVEM O2 -13 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(CALL PARSE-BODY2 1)
(MOVEM O1 -10 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -13 Q)
(CALL MEMQ 2)
(JUMPN1 O1 5)
(MOVE O1 -13 Q)
(CALL CONSP 1)
(JUMPE O1 6)
(MOVE O1 -13 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 1))
(LABEL 6)
(LABEL 5) (JRST 4)
(MOVE O5 -13 Q)
(MOVEM O5 -5 Q)
(MOVE O1 (CONSTANT 2))
(MOVEM O1 -13 Q)
(MOVEM O5 -6 Q)
(JRST 3)
(LABEL 4) (MOVEM NIL -6 Q)
(LABEL 3) (MOVE O1 (CONSTANT 4))
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(SPEC-BIND (SPECIAL 5))
(SPEC-BIND (SPECIAL 6))
(SPEC-BIND (SPECIAL 7))
(MOVEM NIL (SPECIAL 7))
(SPEC-BIND (SPECIAL 8))
(MOVEM NIL (SPECIAL 8))
(SPEC-BIND (SPECIAL 9))
(MOVE O1 (SPECIAL 10))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O5 (SPECIAL 11))
(MOVEM O5 -4 Q)
(MOVE O1 (CONSTANT 12))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 9))
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 9))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 9))
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(MOVE O5 (SPECIAL 11))
(MOVEM O5 -3 Q)
(MOVE O3 (SPECIAL 13))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL ACONS 3)
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(MOVE O1 (SPECIAL 15))
(SPEC-BIND (SPECIAL 14))
(MOVEM O1 (SPECIAL 14))
(SPEC-BIND (SPECIAL 15))
(MOVE O1 (SPECIAL 17))
(SPEC-BIND (SPECIAL 16))
(MOVEM O1 (SPECIAL 16))
(SPEC-BIND (SPECIAL 17))
(MOVE O2 (CONSTANT 20))
(MOVE O1 (CONSTANT 19))
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 18))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 18))
(MOVEM O1 (SPECIAL 18))
(SPEC-BIND (SPECIAL 21))
(MOVEM NIL (SPECIAL 21))
(MOVE O1 -9 Q)
(CALL PROCESS-DECLARATIONS 1)
(MOVE O1 (SPECIAL 13))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O4 (SPECIAL 23))
(MOVE O1 (CONSTANT 22))
(MOVE O2 O5)
(MOVE O3 -4 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 24))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 24))
(MOVEM O1 (SPECIAL 21))
(MOVE O5 -12 Q)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 13) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 14)
(JRST 9)
(LABEL 14) (MOVE O1 -1 Q)
(CALL SYMBOLP 1)
(JUMPE O1 17)
(MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL CG-BIND 2)
(JRST 16)
(LABEL 17) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 18)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL CG-BIND 2)
(JRST 16)
(LABEL 18) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(JRST 19)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL CG-BIND 2)
(JRST 16)
(LABEL 19) (SKIPA)
(JRST 20)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 25))
(CALL CLC-ERROR 2)
(LABEL 20)
(LABEL 16) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 13)
(LABEL 9) (MOVE O2 -13 Q)
(MOVE O1 -8 Q)
(CALL CG-PROGN-BODY 2)
(CALL CHECK-USED 0)
(MOVE O2 (SPECIAL 18))
(MOVE O1 (CONSTANT 19))
(CALL ASSQ 2)
(MOVE O1 1 O1)
(CALL ZEROP 1)
(JUMPN O1 23)
(MOVE O2 (SPECIAL 18))
(MOVE O1 (CONSTANT 19))
(CALL ASSQ 2)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 26))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 24))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 24))
(LABEL 23) (SKIPN NIL -6 Q)
(JRST 25)
(MOVE O1 -6 Q)
(CALL RETO1 1)
(LABEL 25) (SKIPN NIL (SPECIAL 27))
(JRST 27)
(CALL GENERATE-CLOSURE-VECTORS 0)
(JRST 28)
(LABEL 27) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 28) (UNBIND 15)
(SUBI Q 15)
(POPJ P)
)
(%PUT (QUOTE CG-LET*) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-LET*) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-LET*) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LET*) (QUOTE CG) (QUOTE CG-LET*))
#_(LAP #0_CG-LET EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((PREDICATE INV-PREDICATE) SPECIAL O1 IGNORES (IGNORE) *NOTINLINES* *ALL-NUMBERS-ARE-FIXNUMS* NEW-TYPE-DECLS NEW-SPECIALS *FREE-TEMPS* *HAND* *CVH* 1 *CENV* OLD-VENV *VENV* OLD-FENV *FENV* *BENV* SPECBIND 0 *CONTOUR-POINTER* CONTOUR *QREF* LAP-CODE "Bad item in Let binding list: ~S" UNBIND *ENCLOSES*)
(CODE-START)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -16 Q)
(MOVEM O2 -15 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -14 Q)
(MOVE O1 -16 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -13 Q)
(MOVE O1 O5)
(CALL PARSE-BODY2 1)
(MOVEM O1 -12 Q)
(MOVE O5 0 O1)
(MOVEM O5 -11 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVEM NIL -9 Q)
(MOVEM NIL -8 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -15 Q)
(CALL MEMQ 2)
(JUMPN1 O1 5)
(MOVE O1 -15 Q)
(CALL CONSP 1)
(JUMPE O1 6)
(MOVE O1 -15 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 1))
(LABEL 6)
(LABEL 5) (JRST 4)
(MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(MOVE O1 (CONSTANT 2))
(MOVEM O1 -15 Q)
(MOVEM O5 -7 Q)
(JRST 3)
(LABEL 4) (MOVEM NIL -7 Q)
(LABEL 3) (MOVE O1 (CONSTANT 4))
(SPEC-BIND (SPECIAL 3))
(MOVEM O1 (SPECIAL 3))
(SPEC-BIND (SPECIAL 5))
(SPEC-BIND (SPECIAL 6))
(SPEC-BIND (SPECIAL 7))
(MOVEM NIL (SPECIAL 7))
(SPEC-BIND (SPECIAL 8))
(MOVEM NIL (SPECIAL 8))
(SPEC-BIND (SPECIAL 9))
(MOVE O1 (SPECIAL 10))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O5 (SPECIAL 11))
(MOVEM O5 -5 Q)
(MOVE O1 (CONSTANT 12))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 9))
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 (SPECIAL 9))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 9))
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(MOVE O5 (SPECIAL 11))
(MOVEM O5 -4 Q)
(MOVE O3 (SPECIAL 13))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL ACONS 3)
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(MOVE O1 (SPECIAL 15))
(SPEC-BIND (SPECIAL 14))
(MOVEM O1 (SPECIAL 14))
(SPEC-BIND (SPECIAL 15))
(MOVE O1 (SPECIAL 17))
(SPEC-BIND (SPECIAL 16))
(MOVEM O1 (SPECIAL 16))
(SPEC-BIND (SPECIAL 17))
(MOVE O2 (CONSTANT 20))
(MOVE O1 (CONSTANT 19))
(CALL CONS 2)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 18))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 18))
(MOVEM O1 (SPECIAL 18))
(SPEC-BIND (SPECIAL 21))
(MOVEM NIL (SPECIAL 21))
(MOVE O1 -11 Q)
(CALL PROCESS-DECLARATIONS 1)
(MOVE O1 (SPECIAL 13))
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O4 (SPECIAL 23))
(MOVE O1 (CONSTANT 22))
(MOVE O2 O5)
(MOVE O3 -5 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 24))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 24))
(MOVEM O1 (SPECIAL 21))
(MOVE O5 -14 Q)
(MOVEM O5 -3 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(LABEL 13) (MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 14)
(JRST 9)
(LABEL 14) (MOVE O1 -2 Q)
(CALL SYMBOLP 1)
(JUMPN1 O1 18)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 19)
(MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(SKIPN NIL O1)
(LABEL 19)
(LABEL 18) (JRST 17)
(MOVE O1 (CONSTANT 12))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 9))
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 (SPECIAL 9))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 9))
(MOVE O2 -8 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -8 Q)
(MOVE O1 0 O1)
(CALL RETNIL 1)
(MOVE O2 -9 Q)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -9 Q)
(JRST 16)
(LABEL 17) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(JRST 21)
(MOVE O1 (CONSTANT 12))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 9))
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 (SPECIAL 9))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 9))
(MOVE O2 -8 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -8 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -8 Q)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -9 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -9 Q)
(JRST 16)
(LABEL 21) (SKIPA)
(JRST 22)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 25))
(CALL CLC-ERROR 2)
(LABEL 22)
(LABEL 16) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(JRST 13)
(LABEL 9) (MOVE O1 -9 Q)
(CALL NREVERSE 1)
(MOVEM O1 -9 Q)
(MOVE O1 -8 Q)
(CALL NREVERSE 1)
(MOVEM O1 -8 Q)
(MOVE O1 -9 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -8 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(LABEL 28) (SKIPE NIL -3 Q)
(JRST 29)
(JRST 24)
(LABEL 29) (MOVE O3 -1 Q)
(MOVE O1 -3 Q)
(MOVE O2 O3)
(CALL CG-BIND 3)
(MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -3 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 0 Q)
(JRST 28)
(LABEL 24) (MOVE O2 -15 Q)
(MOVE O1 -10 Q)
(CALL CG-PROGN-BODY 2)
(CALL CHECK-USED 0)
(MOVE O2 (SPECIAL 18))
(MOVE O1 (CONSTANT 19))
(CALL ASSQ 2)
(MOVE O1 1 O1)
(CALL ZEROP 1)
(JUMPN O1 32)
(MOVE O2 (SPECIAL 18))
(MOVE O1 (CONSTANT 19))
(CALL ASSQ 2)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 26))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 24))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 24))
(LABEL 32) (SKIPN NIL -7 Q)
(JRST 34)
(MOVE O1 -7 Q)
(CALL RETO1 1)
(LABEL 34) (SKIPN NIL (SPECIAL 27))
(JRST 36)
(CALL GENERATE-CLOSURE-VECTORS 0)
(JRST 37)
(LABEL 36) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 37) (UNBIND 15)
(SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE CG-LET) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-LET) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-LET) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LET) (QUOTE CG) (QUOTE CG-LET))
#_(LAP #0_CG-MULTIPLE-VALUE-BIND EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(MULTIPLE ADJUST-VALUES LAP-CODE (PREDICATE INV-PREDICATE) SPECIAL O1 IGNORES (IGNORE) *NOTINLINES* *ALL-NUMBERS-ARE-FIXNUMS* NEW-TYPE-DECLS NEW-SPECIALS *FREE-TEMPS* *HAND* *CVH* 1 *CENV* OLD-VENV *VENV* OLD-FENV *FENV* *BENV* SPECBIND 0 *CONTOUR-POINTER* CONTOUR *QREF* (O1 O2 O3 O4 O5) (POPREG W2) UNBIND *ENCLOSES*)
(CODE-START)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -16 Q)
(MOVEM O2 -15 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -14 Q)
(MOVE O1 -16 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -13 Q)
(MOVE O1 -16 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -12 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -13 Q)
(CALL CG-FORM 2)
(MOVE O1 -14 Q)
(CALL LENGTH 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -11 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 -12 Q)
(CALL PARSE-BODY2 1)
(MOVEM O1 -10 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O1 -15 Q)
(CALL MEMQ 2)
(JUMPN1 O1 5)
(MOVE O1 -15 Q)
(CALL CONSP 1)
(JUMPE O1 6)
(MOVE O1 -15 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 4))
(LABEL 6)
(LABEL 5) (JRST 4)
(MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(MOVE O1 (CONSTANT 5))
(MOVEM O1 -15 Q)
(MOVEM O5 -7 Q)
(JRST 3)
(LABEL 4) (MOVEM NIL -7 Q)
(LABEL 3) (MOVE O1 (CONSTANT 7))
(SPEC-BIND (SPECIAL 6))
(MOVEM O1 (SPECIAL 6))
(SPEC-BIND (SPECIAL 8))
(SPEC-BIND (SPECIAL 9))
(SPEC-BIND (SPECIAL 10))
(MOVEM NIL (SPECIAL 10))
(SPEC-BIND (SPECIAL 11))
(MOVEM NIL (SPECIAL 11))
(SPEC-BIND (SPECIAL 12))
(MOVE O1 (SPECIAL 13))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(MOVE O5 (SPECIAL 14))
(MOVEM O5 -5 Q)
(MOVE O1 (CONSTANT 15))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 12))
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 (SPECIAL 12))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 12))
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 14))
(MOVEM O1 (SPECIAL 14))
(MOVE O5 (SPECIAL 14))
(MOVEM O5 -4 Q)
(MOVE O3 (SPECIAL 16))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL ACONS 3)
(SPEC-BIND (SPECIAL 16))
(MOVEM O1 (SPECIAL 16))
(MOVE O1 (SPECIAL 18))
(SPEC-BIND (SPECIAL 17))
(MOVEM O1 (SPECIAL 17))
(SPEC-BIND (SPECIAL 18))
(MOVE O1 (SPECIAL 20))
(SPEC-BIND (SPECIAL 19))
(MOVEM O1 (SPECIAL 19))
(SPEC-BIND (SPECIAL 20))
(MOVE O2 (CONSTANT 23))
(MOVE O1 (CONSTANT 22))
(CALL CONS 2)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 21))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 21))
(MOVEM O1 (SPECIAL 21))
(SPEC-BIND (SPECIAL 24))
(MOVEM NIL (SPECIAL 24))
(MOVE O1 -9 Q)
(CALL PROCESS-DECLARATIONS 1)
(MOVE O1 (SPECIAL 16))
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O4 (SPECIAL 26))
(MOVE O1 (CONSTANT 25))
(MOVE O2 O5)
(MOVE O3 -5 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEM O1 (SPECIAL 24))
(MOVE O5 (CONSTANT 27))
(MOVEM O5 -3 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -2 Q)
(LABEL 13) (SKIPN NIL -2 Q)
(JRST1 16)
(SKIPE NIL -3 Q)
(LABEL 16) (JRST 14)
(JRST 9)
(LABEL 14) (MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL CG-BIND 2)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 O5)
(MOVEM O1 -2 Q)
(JRST 13)
(LABEL 9) (MOVE O1 -14 Q)
(CALL LENGTH 1)
(CALL SETUP-MVP 1)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(CALL REVERSE 1)
(MOVEM O1 -3 Q)
(LABEL 21) (SKIPE NIL -3 Q)
(JRST 22)
(JRST 17)
(LABEL 22) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 28))
(MOVE O1 O5)
(CALL CG-BIND 2)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(JRST 21)
(LABEL 17) (MOVE O2 -15 Q)
(MOVE O1 -8 Q)
(CALL CG-PROGN-BODY 2)
(CALL CHECK-USED 0)
(MOVE O2 (SPECIAL 21))
(MOVE O1 (CONSTANT 22))
(CALL ASSQ 2)
(MOVE O1 1 O1)
(CALL ZEROP 1)
(JUMPN O1 25)
(MOVE O2 (SPECIAL 21))
(MOVE O1 (CONSTANT 22))
(CALL ASSQ 2)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 29))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(LABEL 25) (SKIPN NIL -7 Q)
(JRST 27)
(MOVE O1 -7 Q)
(CALL RETO1 1)
(LABEL 27) (SKIPN NIL (SPECIAL 30))
(JRST 29)
(CALL GENERATE-CLOSURE-VECTORS 0)
(JRST 30)
(LABEL 29) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 30) (UNBIND 15)
(SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE CG-MULTIPLE-VALUE-BIND) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-MULTIPLE-VALUE-BIND) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-MULTIPLE-VALUE-BIND) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MULTIPLE-VALUE-BIND) (QUOTE CG) (QUOTE CG-MULTIPLE-VALUE-BIND))
#_(LAP #0_SETUP-MVP EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(N 5 (MOVE W2 MVP) LAP-CODE ADDI W2)
(CODE-START)
(LABEL 1) (ADDI Q 1)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O5 (SPECIAL 0))
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O1 O5)
(CALL > 2)
(JUMPE O1 4)
(MOVE O1 (CONSTANT 2))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O3 (SPECIAL 0))
(MOVE O1 (CONSTANT 4))
(MOVE O2 (CONSTANT 5))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (UNBIND 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE SETUP-MVP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (N)))
(%PUT (QUOTE SETUP-MVP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SETUP-MVP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-COMPILER-LET EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Bad item in Let binding list: ~S")
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVEM O2 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(MOVEM NIL -4 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 7) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O1 -1 Q)
(CALL SYMBOLP 1)
(JUMPE O1 11)
(MOVE O2 -5 Q)
(MOVE O1 -1 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O2 -4 Q)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -4 Q)
(JRST 10)
(LABEL 11) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 12)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O2 -4 Q)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -4 Q)
(JRST 10)
(LABEL 12) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(JRST 13)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL EVAL 1)
(MOVEM O1 0 Q)
(MOVE O2 -4 Q)
(CALL CONS 2)
(MOVEM O1 -4 Q)
(JRST 10)
(LABEL 13) (SKIPA)
(JRST 14)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 2)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O2 -4 Q)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -4 Q)
(LABEL 14)
(LABEL 10) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 7)
(LABEL 3) (MOVE O1 -5 Q)
(CALL NREVERSE 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(CALL NREVERSE 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(PUSH P SP)
(ICALL BINDV)
(MOVE O2 -8 Q)
(MOVE O1 -6 Q)
(CALL CG-PROGN-BODY 2)
(POP P W2)
(ICALL UNBIND)
(SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE CG-COMPILER-LET) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-COMPILER-LET) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-COMPILER-LET) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COMPILER-LET) (QUOTE CG) (QUOTE CG-COMPILER-LET))
#_(LAP #0_CG-FLET EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(IGNORES (IGNORE) *NOTINLINES* *ALL-NUMBERS-ARE-FIXNUMS* NEW-TYPE-DECLS NEW-SPECIALS *FREE-TEMPS* *HAND* *CVH* 1 *CENV* OLD-VENV *VENV* OLD-FENV *FENV* *BENV* SPECBIND 0 *CONTOUR-POINTER* CONTOUR *QREF* LAP-CODE *ENCLOSES* LAMBDA O1 AUXILIARY)
(CODE-START)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -15 Q)
(MOVEM O2 -14 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -13 Q)
(MOVE O1 -15 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -12 Q)
(MOVE O1 O5)
(CALL PARSE-BODY1 1)
(MOVEM O1 -11 Q)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 (CONSTANT 1))
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(SPEC-BIND (SPECIAL 2))
(SPEC-BIND (SPECIAL 3))
(SPEC-BIND (SPECIAL 4))
(MOVEM NIL (SPECIAL 4))
(SPEC-BIND (SPECIAL 5))
(MOVEM NIL (SPECIAL 5))
(SPEC-BIND (SPECIAL 6))
(MOVE O1 (SPECIAL 7))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -8 Q)
(MOVE O1 (CONSTANT 9))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 6))
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 (SPECIAL 6))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 8))
(MOVEM O1 (SPECIAL 8))
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -7 Q)
(MOVE O3 (SPECIAL 10))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL ACONS 3)
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O1 (SPECIAL 12))
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(SPEC-BIND (SPECIAL 12))
(MOVE O1 (SPECIAL 14))
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(SPEC-BIND (SPECIAL 14))
(MOVE O2 (CONSTANT 17))
(MOVE O1 (CONSTANT 16))
(CALL CONS 2)
(MOVEM O1 -7 Q)
(MOVE O2 (SPECIAL 15))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 15))
(MOVEM O1 (SPECIAL 15))
(SPEC-BIND (SPECIAL 18))
(MOVEM NIL (SPECIAL 18))
(MOVE O1 -10 Q)
(CALL PROCESS-DECLARATIONS 1)
(MOVE O1 (SPECIAL 10))
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O4 (SPECIAL 20))
(MOVE O1 (CONSTANT 19))
(MOVE O2 O5)
(MOVE O3 -8 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -7 Q)
(MOVE O2 (SPECIAL 21))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 21))
(MOVEM O1 (SPECIAL 18))
(MOVE O5 -13 Q)
(MOVEM O5 -6 Q)
(MOVE O5 (SPECIAL 14))
(MOVEM O5 -5 Q)
(CALL BREAKOFF-NAME 0)
(MOVEM O1 -4 Q)
(MOVE O1 (CONSTANT 9))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 6))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 (SPECIAL 6))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 6))
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O1 -6 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O2 -14 Q)
(MOVE O1 -9 Q)
(CALL CG-PROGN-BODY 2)
(CALL CHECK-USED-FNS 0)
(SKIPN NIL (SPECIAL 22))
(JRST 10)
(CALL GENERATE-CLOSURE-VECTORS 0)
(JRST 11)
(LABEL 10) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 11) (JRST 3)
(LABEL 8) (MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 14))
(MOVEM O1 (SPECIAL 14))
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 23))
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O4 (CONSTANT 25))
(MOVE O2 -4 Q)
(MOVE O3 (CONSTANT 24))
(CALL CG-FUNCTION1 4)
(UNBIND 1)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O3 (CONSTANT 24))
(MOVE O1 O5)
(MOVE O2 -3 Q)
(CALL CG-BIND-FN 3)
(MOVE O1 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(CALL BREAKOFF-NAME 0)
(MOVEM O1 -1 Q)
(MOVE O1 (CONSTANT 9))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 6))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (SPECIAL 6))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 6))
(MOVEM O5 0 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (UNBIND 15)
(SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE CG-FLET) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-FLET) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-FLET) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FLET) (QUOTE CG) (QUOTE CG-FLET))
#_(LAP #0_CG-LABELS EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(IGNORES (IGNORE) *NOTINLINES* *ALL-NUMBERS-ARE-FIXNUMS* NEW-TYPE-DECLS NEW-SPECIALS *FREE-TEMPS* *HAND* *CVH* 1 *CENV* OLD-VENV *VENV* OLD-FENV *FENV* *BENV* SPECBIND 0 *CONTOUR-POINTER* CONTOUR *QREF* LAP-CODE LAMBDA O1 AUXILIARY *ENCLOSES*)
(CODE-START)
(LABEL 1) (ADDI Q 15)
(MOVEM O1 -14 Q)
(MOVEM O2 -13 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -11 Q)
(MOVE O1 O5)
(CALL PARSE-BODY1 1)
(MOVEM O1 -10 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(MOVE O1 (CONSTANT 1))
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(SPEC-BIND (SPECIAL 2))
(SPEC-BIND (SPECIAL 3))
(SPEC-BIND (SPECIAL 4))
(MOVEM NIL (SPECIAL 4))
(SPEC-BIND (SPECIAL 5))
(MOVEM NIL (SPECIAL 5))
(SPEC-BIND (SPECIAL 6))
(MOVE O1 (SPECIAL 7))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -6 Q)
(MOVE O1 (CONSTANT 9))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 6))
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 (SPECIAL 6))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 8))
(MOVEM O1 (SPECIAL 8))
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -5 Q)
(MOVE O3 (SPECIAL 10))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL ACONS 3)
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O1 (SPECIAL 12))
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(SPEC-BIND (SPECIAL 12))
(MOVE O1 (SPECIAL 14))
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(SPEC-BIND (SPECIAL 14))
(MOVE O2 (CONSTANT 17))
(MOVE O1 (CONSTANT 16))
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 15))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 15))
(MOVEM O1 (SPECIAL 15))
(SPEC-BIND (SPECIAL 18))
(MOVEM NIL (SPECIAL 18))
(MOVE O1 -9 Q)
(CALL PROCESS-DECLARATIONS 1)
(MOVE O1 (SPECIAL 10))
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O4 (SPECIAL 20))
(MOVE O1 (CONSTANT 19))
(MOVE O2 O5)
(MOVE O3 -6 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 21))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 21))
(MOVEM O1 (SPECIAL 18))
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O1 (CONSTANT 9))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 6))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (SPECIAL 6))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 6))
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O3 NIL)
(MOVE O1 O5)
(MOVE O2 -1 Q)
(CALL CG-BIND-FN 3)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(CALL BREAKOFF-NAME 0)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 -7 Q)
(CALL CONS 2)
(MOVEM O1 -7 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(LABEL 14) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 15)
(JRST 10)
(LABEL 15) (MOVE O1 -3 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 22))
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -7 Q)
(MOVE O1 O5)
(CALL ASSQ 2)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 24))
(MOVE O1 -2 Q)
(MOVE O2 O5)
(MOVE O3 (CONSTANT 23))
(CALL CG-FUNCTION1 4)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 23))
(MOVE O1 O5)
(CALL SET-BOUND-FN 2)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -3 Q)
(JRST 14)
(LABEL 10) (MOVE O2 -13 Q)
(MOVE O1 -8 Q)
(CALL CG-PROGN-BODY 2)
(CALL CHECK-USED-FNS 0)
(SKIPN NIL (SPECIAL 25))
(JRST 17)
(CALL GENERATE-CLOSURE-VECTORS 0)
(JRST 18)
(LABEL 17) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 18) (UNBIND 15)
(SUBI Q 15)
(POPJ P)
)
(%PUT (QUOTE CG-LABELS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-LABELS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-LABELS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LABELS) (QUOTE CG) (QUOTE CG-LABELS))
#_(LAP #0_CG-MACROLET EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(IGNORES (IGNORE) *NOTINLINES* *ALL-NUMBERS-ARE-FIXNUMS* NEW-TYPE-DECLS NEW-SPECIALS *FREE-TEMPS* *HAND* *CVH* 1 *CENV* OLD-VENV *VENV* OLD-FENV *FENV* *BENV* SPECBIND 0 *CONTOUR-POINTER* CONTOUR *QREF* LAP-CODE *ENCLOSES* LAMBDA DEFMACRO)
(CODE-START)
(LABEL 1) (ADDI Q 14)
(MOVEM O1 -13 Q)
(MOVEM O2 -12 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -11 Q)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -10 Q)
(MOVE O1 O5)
(CALL PARSE-BODY1 1)
(MOVEM O1 -9 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 (CONSTANT 1))
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(SPEC-BIND (SPECIAL 2))
(SPEC-BIND (SPECIAL 3))
(SPEC-BIND (SPECIAL 4))
(MOVEM NIL (SPECIAL 4))
(SPEC-BIND (SPECIAL 5))
(MOVEM NIL (SPECIAL 5))
(SPEC-BIND (SPECIAL 6))
(MOVE O1 (SPECIAL 7))
(CALL 1+ 1)
(SPEC-BIND (SPECIAL 7))
(MOVEM O1 (SPECIAL 7))
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -6 Q)
(MOVE O1 (CONSTANT 9))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 6))
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 (SPECIAL 6))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 8))
(MOVEM O1 (SPECIAL 8))
(MOVE O5 (SPECIAL 8))
(MOVEM O5 -5 Q)
(MOVE O3 (SPECIAL 10))
(MOVE O1 O5)
(MOVE O2 NIL)
(CALL ACONS 3)
(SPEC-BIND (SPECIAL 10))
(MOVEM O1 (SPECIAL 10))
(MOVE O1 (SPECIAL 12))
(SPEC-BIND (SPECIAL 11))
(MOVEM O1 (SPECIAL 11))
(SPEC-BIND (SPECIAL 12))
(MOVE O1 (SPECIAL 14))
(SPEC-BIND (SPECIAL 13))
(MOVEM O1 (SPECIAL 13))
(SPEC-BIND (SPECIAL 14))
(MOVE O2 (CONSTANT 17))
(MOVE O1 (CONSTANT 16))
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 15))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 15))
(MOVEM O1 (SPECIAL 15))
(SPEC-BIND (SPECIAL 18))
(MOVEM NIL (SPECIAL 18))
(MOVE O1 -8 Q)
(CALL PROCESS-DECLARATIONS 1)
(MOVE O1 (SPECIAL 10))
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O4 (SPECIAL 20))
(MOVE O1 (CONSTANT 19))
(MOVE O2 O5)
(MOVE O3 -6 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 21))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 21))
(MOVEM O1 (SPECIAL 18))
(MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 (SPECIAL 14))
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O2 -12 Q)
(MOVE O1 -7 Q)
(CALL CG-PROGN-BODY 2)
(CALL CHECK-USED-FNS 0)
(SKIPN NIL (SPECIAL 22))
(JRST 10)
(CALL GENERATE-CLOSURE-VECTORS 0)
(JRST 11)
(LABEL 10) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 11) (JRST 3)
(LABEL 8) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(MOVE O1 O5)
(SPEC-BIND (SPECIAL 14))
(MOVEM O1 (SPECIAL 14))
(MOVE O1 -4 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 24))
(CALL CONS 2)
(CALL MACROEXPAND 1)
(UNBIND 1)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 23))
(CALL CONS 2)
(MOVEM O1 -1 Q)
(MOVE O3 NIL)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL CG-BIND-FN 3)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(JRST 7)
(LABEL 3) (UNBIND 15)
(SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE CG-MACROLET) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-MACROLET) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-MACROLET) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MACROLET) (QUOTE CG) (QUOTE CG-MACROLET))
#_(LAP #0_CG-BLOCK EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* BLOCK *BENV* (CONTINUE) LAP-CODE (PREDICATE INV-PREDICATE) SPECIAL O1 MOVE CONSTANT (ICALL CCATCH) JUMPA (POPJ P) ((SUBI P 3) (SUBI SP 4) (POP P W2) (ICALL UNBIND) (SUBI P 1)) LABEL)
(CODE-START)
(LABEL 1) (ADDI Q 12)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -8 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -7 Q)
(MOVE O2 -10 Q)
(CALL MAKE-BENV 2)
(MOVEM O1 -6 Q)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -9 Q)
(CALL LIST* 3)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(SPEC-BIND (SPECIAL 2))
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (CONSTANT 3))
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEM O1 -4 Q)
(MOVE O2 (CONSTANT 5))
(MOVE O1 -10 Q)
(CALL MEMQ 2)
(JUMPN1 O1 5)
(MOVE O1 -10 Q)
(CALL CONSP 1)
(JUMPE O1 6)
(MOVE O1 -10 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 6))
(LABEL 6)
(LABEL 5) (JRST 4)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O1 (CONSTANT 7))
(MOVEM O1 -10 Q)
(MOVEM O5 -3 Q)
(JRST 3)
(LABEL 4) (MOVEM NIL -3 Q)
(LABEL 3) (MOVE O2 -10 Q)
(MOVE O1 -8 Q)
(CALL CG-PROGN-BODY 2)
(MOVE O1 -6 Q)
(SKIPN NIL 3 O1)
(JRST 10)
(MOVE O1 -6 Q)
(SKIPN NIL 3 O1)
(JRST 11)
(MOVE O1 -6 Q)
(MOVE O1 3 O1)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 12)
(LABEL 11) (MOVE O3 NIL)
(LABEL 12) (MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 7))
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 10))
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL INST-OUT-SPLICE 2)
(MOVE O1 (CONSTANT 12))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 -6 Q)
(MOVE O5 4 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 17) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 18)
(JRST 13)
(LABEL 18) (MOVE O2 (CONSTANT 13))
(MOVE O1 0 Q)
(CALL INST-OUT-SPLICE 2)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 17)
(LABEL 13)
(LABEL 10) (MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 14))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(SKIPN NIL -3 Q)
(JRST 21)
(MOVE O1 -10 Q)
(CALL RETO1 1)
(JRST 22)
(LABEL 21) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 22) (UNBIND 1)
(SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE CG-BLOCK) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-BLOCK) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-BLOCK) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE BLOCK) (QUOTE CG) (QUOTE CG-BLOCK))
#_(LAP #0_CG-RETURN-FROM EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*BENV* "Return to unseen block name: ~S" BLOCK GULF T *LABEL-COUNTER* TAG (CONTINUE) LAP-CODE (PREDICATE INV-PREDICATE) JUMPA JRST1 JRST CODE-DUMP TAGBODY SPECBIND UNBIND GT5 SUBI Q CATCH "Compiler bug in RETURN[-FROM]")
(CODE-START)
(LABEL 1) (ADDI Q 15)
(MOVEM O1 -14 Q)
(MOVEM O2 -13 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -11 Q)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVEM NIL -11 Q)
(LABEL 5)
(LABEL 3) (MOVEM NIL -10 Q)
(MOVEM NIL -9 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(LABEL 11) (SKIPE NIL -8 Q)
(JRST 12)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 1))
(CALL CLC-ERROR 2)
(JRST 7)
(LABEL 12) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 -6 Q)
(JRST 15)
(MOVE O1 -8 Q)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(CAME O2 -12 Q)
(JRST 17)
(MOVE O1 -8 Q)
(MOVE O1 0 O1)
(MOVEM O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 2 O1)
(MOVEM O1 -13 Q)
(JRST 7)
(LABEL 17) (JRST 14)
(LABEL 15) (MOVE O2 (CONSTANT 3))
(CAME O2 -6 Q)
(JRST 19)
(MOVE O1 (CONSTANT 4))
(MOVEM O1 -10 Q)
(JRST 14)
(LABEL 19) (SKIPA)
(JRST 20)
(LABEL 20)
(LABEL 14) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 11)
(LABEL 7) (SKIPN NIL -10 Q)
(JRST 22)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 3 O1)
(SKIPE NIL O1)
(MOVEM O1 -8 Q)
(JUMPN O1 24)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O1 (SPECIAL 5))
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVEM O1 (SPECIAL 5))
(MOVEM O1 (SPECIAL 6))
(MOVEM O1 -5 Q)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(MOVEM O2 3 O1)
(MOVE O5 3 O1)
(MOVEM O5 -8 Q)
(LABEL 24) (MOVE O2 -11 Q)
(MOVE O1 -8 Q)
(CALL COMP-THROW 2)
(JRST 23)
(LABEL 22) (MOVE O2 -13 Q)
(MOVE O1 -11 Q)
(CALL CG-FORM 2)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVEM NIL -6 Q)
(LABEL 29) (MOVE O2 -9 Q)
(CAME O2 -7 Q)
(JRST 30)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O5 O1)
(MOVEM O5 -4 Q)
(MOVE O1 (CONSTANT 7))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(MOVE O2 4 O1)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 4 O1)
(MOVE O2 (CONSTANT 9))
(MOVE O1 -13 Q)
(CALL MEMQ 2)
(JUMPE O1 33)
(MOVE O1 -6 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVE O1 -6 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEI N 1)
(JRST 32)
(LABEL 33) (SKIPA)
(JRST 34)
(MOVE O1 -6 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEI N 1)
(LABEL 34)
(LABEL 32) (JRST 25)
(LABEL 30) (MOVE O1 (SPECIAL 8))
(MOVEM O1 (SPECIAL 13))
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 -4 Q)
(JRST 37)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(SKIPN NIL 3 O1)
(JRST 38)
(CALL INST-OUT-DELETE-CATCH-BLIP 0)
(JRST 39)
(LABEL 38) (MOVE O5 -6 Q)
(MOVEM O5 -2 Q)
(MOVE O1 (CONSTANT 7))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEM O1 0 Q)
(MOVE O1 -2 Q)
(MOVE O2 4 O1)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 -1 Q)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVEM O2 4 O1)
(LABEL 39) (JRST 36)
(LABEL 37) (MOVE O2 (CONSTANT 14))
(CAME O2 -4 Q)
(JRST 40)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(SKIPN NIL 1 O1)
(JRST 41)
(CALL INST-OUT-DELETE-CATCH-BLIP 0)
(JRST 42)
(LABEL 41) (MOVE O5 -6 Q)
(MOVEM O5 -2 Q)
(MOVE O1 (CONSTANT 7))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(MOVEM O1 0 Q)
(MOVE O1 -2 Q)
(MOVE O2 3 O1)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 -1 Q)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVEM O2 3 O1)
(LABEL 42) (JRST 36)
(LABEL 40) (MOVE O2 (CONSTANT 15))
(CAME O2 -4 Q)
(JRST 43)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(CALL ZEROP 1)
(JUMPN O1 45)
(MOVE O1 -7 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 16))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(LABEL 45) (JRST 36)
(LABEL 43) (MOVE O2 (CONSTANT 17))
(CAME O2 -4 Q)
(JRST 47)
(MOVE O1 -7 Q)
(MOVE O3 1 O1)
(MOVE O1 (CONSTANT 18))
(MOVE O2 (CONSTANT 19))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 8))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 8))
(JRST 36)
(LABEL 47) (MOVE O2 (CONSTANT 20))
(CAME O2 -4 Q)
(JRST 48)
(CALL INST-OUT-DELETE-CATCH-BLIP 0)
(JRST 36)
(LABEL 48) (SKIPA)
(JRST 49)
(MOVE O1 (CONSTANT 21))
(CALL ERROR 1)
(LABEL 49)
(LABEL 36) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 0 O1)
(MOVEM O1 -7 Q)
(JRST 29)
(LABEL 25)
(LABEL 23) (SUBI Q 15)
(POPJ P)
)
(%PUT (QUOTE CG-RETURN-FROM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-RETURN-FROM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-RETURN-FROM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE RETURN-FROM) (QUOTE CG) (QUOTE CG-RETURN-FROM))
#_(LAP #0_INST-OUT-DELETE-CATCH-BLIP EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((SUBI P 3) LAP-CODE (SUBI SP 4) (POP P W2) (ICALL UNBIND) (SUBI P 1))
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVE O1 (CONSTANT 0))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 (CONSTANT 2))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 (CONSTANT 3))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 (CONSTANT 5))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE INST-OUT-DELETE-CATCH-BLIP) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE INST-OUT-DELETE-CATCH-BLIP) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE INST-OUT-DELETE-CATCH-BLIP) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-TAGBODY EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*BENV* (CONTINUE) LAP-CODE *LABEL-COUNTER* 0 "Tag ~s appears more than once in a tagbody." TAGBODY LABEL "Atom in tagbody not a legal tag: ~s" "~s unused tag in tagbody." MOVE O1 CONSTANT (ICALL CCATCH) JUMPA JRST (HRRZ W2 O1) (W2) ((SUBI P 3) (SUBI SP 4) (POP P W2) (ICALL UNBIND) (SUBI P 1)))
(CODE-START)
(LABEL 1) (ADDI Q 18)
(MOVEM O1 -17 Q)
(MOVEM O2 -16 Q)
(MOVE O5 1 O1)
(MOVEM O5 -15 Q)
(MOVEM NIL -14 Q)
(MOVEM NIL -13 Q)
(CALL MAKE-TENV 0)
(MOVEM O1 -12 Q)
(MOVEM NIL -11 Q)
(SPEC-BIND (SPECIAL 0))
(MOVE O1 (CONSTANT 1))
(CALL COPY-LIST 1)
(MOVEM O1 -9 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEM O1 -10 Q)
(MOVE O1 (SPECIAL 3))
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVEM O1 (SPECIAL 3))
(MOVEM O1 -9 Q)
(MOVE O1 (SPECIAL 3))
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVEM O1 (SPECIAL 3))
(MOVEM O1 -8 Q)
(MOVE O1 (SPECIAL 3))
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVEM O1 (SPECIAL 3))
(MOVEM O1 -7 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -5 Q)
(MOVE O5 (CONSTANT 4))
(MOVEM O5 -4 Q)
(LABEL 7) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPN1 O1 12)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL INTEGERP 1)
(SKIPN NIL O1)
(LABEL 12) (JRST 11)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O2 -14 Q)
(MOVE O1 O5)
(CALL MEMQ 2)
(JUMPE O1 13)
(MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 5))
(CALL CLC-ERROR 2)
(JRST 14)
(LABEL 13) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O2 -14 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -14 Q)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 3))
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVEM O1 (SPECIAL 3))
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 -4 Q)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(CALL MAKE-TAG 2)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 -13 Q)
(CALL CONS 2)
(MOVEM O1 -13 Q)
(LABEL 14)
(LABEL 11) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(JRST 7)
(LABEL 3) (MOVE O3 -12 Q)
(MOVE O1 (CONSTANT 6))
(MOVE O2 -14 Q)
(CALL LIST* 3)
(MOVEM O1 -11 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(MOVE O2 O5)
(MOVE O1 -5 Q)
(MOVEM O2 2 O1)
(MOVE O2 (SPECIAL 0))
(MOVE O1 -11 Q)
(CALL CONS 2)
(MOVEM O1 (SPECIAL 0))
(MOVE O5 -15 Q)
(MOVEM O5 -5 Q)
(LABEL 20) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 21)
(JRST 16)
(LABEL 21) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPN1 O1 25)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL INTEGERP 1)
(SKIPN NIL O1)
(LABEL 25) (JRST 24)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O2 -13 Q)
(MOVE O1 O5)
(CALL ASSQ 2)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -4 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(JRST 23)
(LABEL 24) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL ATOM 1)
(JUMPE O1 26)
(MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 8))
(CALL CLC-WARNING 2)
(JRST 23)
(LABEL 26) (SKIPA)
(JRST 27)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL CG-FORM 2)
(LABEL 27)
(LABEL 23) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(JRST 20)
(LABEL 16) (MOVE O5 -13 Q)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 33) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 34)
(JRST 29)
(LABEL 34) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(SKIPE NIL 3 O1)
(JRST 37)
(MOVE O1 -4 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 9))
(CALL CLC-WARNING 2)
(LABEL 37) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 33)
(LABEL 29) (MOVE O1 -12 Q)
(SKIPN NIL 1 O1)
(JRST 40)
(MOVE O1 -12 Q)
(SKIPN NIL 1 O1)
(JRST 41)
(MOVE O1 -12 Q)
(MOVE O1 1 O1)
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 42)
(LABEL 41) (MOVE O3 NIL)
(LABEL 42) (MOVE O1 (CONSTANT 10))
(MOVE O2 (CONSTANT 11))
(CALL LIST 3)
(MOVEM O1 -5 Q)
(MOVE O2 -9 Q)
(MOVE O1 (CONSTANT 14))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 13))
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(CALL INST-OUT-SPLICE 2)
(CALL INST-OUT-DELETE-CATCH-BLIP 0)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 15))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -6 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O2 -9 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -6 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (CONSTANT 16))
(CALL COPY-LIST 1)
(MOVEM O1 -6 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O3 (CONSTANT 17))
(MOVE O1 (CONSTANT 15))
(MOVE O2 -8 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 -6 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O2 -8 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -6 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O5 -13 Q)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 47) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 48)
(JRST 43)
(LABEL 48) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 14))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 47)
(LABEL 43) (MOVE O1 -12 Q)
(MOVE O5 4 O1)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 54) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 55)
(JRST 50)
(LABEL 55) (MOVE O2 (CONSTANT 18))
(MOVE O1 -4 Q)
(CALL INST-OUT-SPLICE 2)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 0 O1)
(MOVEM O1 -4 Q)
(JRST 54)
(LABEL 50) (MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -6 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(LABEL 40) (MOVE O1 -16 Q)
(CALL RETNIL 1)
(UNBIND 1)
(SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE CG-TAGBODY) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-TAGBODY) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-TAGBODY) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE TAGBODY) (QUOTE CG) (QUOTE CG-TAGBODY))
#_(LAP #0_CG-GO EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*BENV* LAP-CODE "Go to unseen tag: ~S" BLOCK (CONTINUE) TAGBODY *LABEL-COUNTER* CTAG T JRST SPECBIND UNBIND GT5 SUBI Q CATCH GULF)
(CODE-START)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -15 Q)
(MOVEM O2 -14 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -13 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -12 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -11 Q)
(MOVEM NIL -10 Q)
(MOVEM NIL -9 Q)
(MOVEM NIL -8 Q)
(MOVE O5 (SPECIAL 1))
(MOVEM O5 -7 Q)
(LABEL 7) (SKIPE NIL -12 Q)
(JRST 8)
(MOVE O2 -13 Q)
(MOVE O1 (CONSTANT 2))
(CALL CLC-ERROR 2)
(JRST 3)
(LABEL 8) (MOVE O1 -11 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 -6 Q)
(JRST 11)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -10 Q)
(SKIPN NIL 3 O1)
(JRST 12)
(CALL INST-OUT-DELETE-CATCH-BLIP 0)
(JRST 13)
(LABEL 12) (MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(MOVE O2 4 O1)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 4 O1)
(LABEL 13) (JRST 10)
(LABEL 11) (MOVE O2 (CONSTANT 5))
(CAME O2 -6 Q)
(JRST 14)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -10 Q)
(MOVE O2 2 O1)
(MOVE O1 -13 Q)
(CALL ASSQ 2)
(MOVE O1 1 O1)
(MOVEM O1 -9 Q)
(JUMPE O1 15)
(SKIPN NIL -8 Q)
(JRST 17)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(SKIPE NIL O1)
(MOVEM O1 -4 Q)
(JUMPN O1 19)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O1 (SPECIAL 6))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 6))
(MOVEM O1 (SPECIAL 7))
(MOVEM O1 -1 Q)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVEM O2 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(LABEL 19) (MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 8))
(MOVEM O5 -1 Q)
(MOVE O2 O5)
(MOVE O1 -2 Q)
(MOVEM O2 3 O1)
(MOVE O1 -7 Q)
(MOVEM O1 (SPECIAL 1))
(MOVE O1 -9 Q)
(MOVE O2 2 O1)
(MOVE O1 -13 Q)
(CALL COMP-THROW 2)
(JRST 18)
(LABEL 17) (MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(MOVE O5 (CONSTANT 8))
(MOVEM O5 -3 Q)
(MOVE O2 O5)
(MOVE O1 -4 Q)
(MOVEM O2 3 O1)
(MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(MOVE O2 3 O1)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 3 O1)
(MOVE O1 -9 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(LABEL 18) (JRST 16)
(LABEL 15) (MOVE O1 -10 Q)
(SKIPN NIL 1 O1)
(JRST 20)
(CALL INST-OUT-DELETE-CATCH-BLIP 0)
(JRST 21)
(LABEL 20) (MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(MOVE O2 3 O1)
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(MOVEM O2 3 O1)
(LABEL 21)
(LABEL 16) (SKIPN NIL -9 Q)
(JRST 22)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 22) (JRST 10)
(LABEL 14) (MOVE O2 (CONSTANT 10))
(CAME O2 -6 Q)
(JRST 24)
(MOVE O1 -11 Q)
(MOVE O1 1 O1)
(CALL ZEROP 1)
(JUMPN O1 26)
(MOVE O1 -11 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(LABEL 26) (JRST 10)
(LABEL 24) (MOVE O2 (CONSTANT 12))
(CAME O2 -6 Q)
(JRST 28)
(MOVE O1 -11 Q)
(MOVE O3 1 O1)
(MOVE O1 (CONSTANT 13))
(MOVE O2 (CONSTANT 14))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 1))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 1))
(JRST 10)
(LABEL 28) (MOVE O2 (CONSTANT 15))
(CAME O2 -6 Q)
(JRST 29)
(CALL INST-OUT-DELETE-CATCH-BLIP 0)
(JRST 10)
(LABEL 29) (MOVE O2 (CONSTANT 16))
(CAME O2 -6 Q)
(JRST 30)
(MOVE O1 (CONSTANT 8))
(MOVEM O1 -8 Q)
(LABEL 30)
(LABEL 10) (MOVE O1 -12 Q)
(MOVE O1 1 O1)
(MOVEM O1 -12 Q)
(MOVE O1 0 O1)
(MOVEM O1 -11 Q)
(JRST 7)
(LABEL 3) (SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE CG-GO) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-GO) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-GO) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE GO) (QUOTE CG) (QUOTE CG-GO))
#_(LAP #0_CG-THE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 O5)
(CALL CG-FORM 2)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-THE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-THE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-THE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE THE) (QUOTE CG) (QUOTE CG-THE))
#_(LAP #0_CG-PROGN EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 O5)
(CALL CG-PROGN-BODY 2)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CG-PROGN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-PROGN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-PROGN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PROGN) (QUOTE CG) (QUOTE CG-PROGN))
#_(LAP #0_CG-PROGN-BODY EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(CALL ATOM 1)
(JUMPE O1 3)
(MOVE O2 -2 Q)
(MOVE O1 NIL)
(CALL CG-FORM 2)
(JRST 4)
(LABEL 3) (MOVE O5 -3 Q)
(MOVEM O5 -1 Q)
(LABEL 9) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 10)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 O5)
(CALL CG-FORM 2)
(JRST 5)
(LABEL 10) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(JRST 9)
(LABEL 5)
(LABEL 4) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-PROGN-BODY) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORMS WHERE)))
(%PUT (QUOTE CG-PROGN-BODY) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-PROGN-BODY) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-PROG1 EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*FREE-TEMPS* 2)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(SKIPN NIL -4 Q)
(JRST 3)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 0))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (CONSTANT 1))
(CALL ENOUGH-TEMPS 1)
(MOVE O2 -2 Q)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O1 (SPECIAL 0))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 0))
(MOVE O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 9) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 10)
(JRST 5)
(LABEL 10) (MOVE O2 NIL)
(MOVE O1 0 Q)
(CALL CG-FORM 2)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 9)
(LABEL 5) (MOVE O2 -6 Q)
(MOVE O1 -2 Q)
(CALL RETMEM 2)
(UNBIND 1)
(JRST 4)
(LABEL 3) (MOVE O2 -6 Q)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(LABEL 4) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE CG-PROG1) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-PROG1) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-PROG1) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PROG1) (QUOTE CG) (QUOTE CG-PROG1))
#_(LAP #0_CG-PROG2 EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*FREE-TEMPS* 2)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O2 NIL)
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(SKIPN NIL -4 Q)
(JRST 3)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 0))
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (CONSTANT 1))
(CALL ENOUGH-TEMPS 1)
(MOVE O2 -2 Q)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O1 (SPECIAL 0))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 0))
(MOVE O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 9) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 10)
(JRST 5)
(LABEL 10) (MOVE O2 NIL)
(MOVE O1 0 Q)
(CALL CG-FORM 2)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 9)
(LABEL 5) (MOVE O2 -7 Q)
(MOVE O1 -2 Q)
(CALL RETMEM 2)
(UNBIND 1)
(JRST 4)
(LABEL 3) (MOVE O2 -7 Q)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(LABEL 4) (SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-PROG2) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-PROG2) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-PROG2) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PROG2) (QUOTE CG) (QUOTE CG-PROG2))
#_(LAP #0_CG-MVPROG1 EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(MULTIPLE (ICALL PUSH-VALUES) LAP-CODE (ICALL POP-VALUES))
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -4 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 1))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O5 -3 Q)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 7) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O2 NIL)
(MOVE O1 0 Q)
(CALL CG-FORM 2)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 O1)
(MOVEM O1 0 Q)
(JRST 7)
(LABEL 3) (MOVE O1 (CONSTANT 3))
(CALL COPY-LIST 1)
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 -5 Q)
(CALL RETREGS 1)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE CG-MVPROG1) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-MVPROG1) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-MVPROG1) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MULTIPLE-VALUE-PROG1) (QUOTE CG) (QUOTE CG-MVPROG1))
#_(LAP #0_CG-MULTIPLE-VALUE-LIST EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(MULTIPLE (ICALL VALUES-TO-LIST) LAP-CODE)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPN NIL -2 Q)
(JRST 3)
(MOVE O2 (CONSTANT 0))
(JRST 4)
(LABEL 3) (MOVE O2 NIL)
(LABEL 4) (MOVE O1 -1 Q)
(CALL CG-FORM 2)
(SKIPN NIL -2 Q)
(JRST 5)
(MOVE O1 (CONSTANT 1))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(LABEL 5) (MOVE O1 -2 Q)
(CALL RETO1 1)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-MULTIPLE-VALUE-LIST) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-MULTIPLE-VALUE-LIST) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-MULTIPLE-VALUE-LIST) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MULTIPLE-VALUE-LIST) (QUOTE CG) (QUOTE CG-MULTIPLE-VALUE-LIST))
#_(LAP #0_CG-MULTIPLE-VALUE-CALL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*FREE-TEMPS* 1 MULTIPLE (ICALL PUSH-VALUES) LAP-CODE MOVE O1 *QREF* MOVEI N (ICALL VALUES-CALL))
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(SPEC-BIND (SPECIAL 0))
(MOVE O1 (CONSTANT 1))
(CALL ENOUGH-TEMPS 1)
(MOVE O1 (SPECIAL 0))
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 0))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 0))
(MOVEM O5 -4 Q)
(MOVE O2 O5)
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(LABEL 7) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O2 (CONSTANT 2))
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 3))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O1 0 O1)
(MOVEM O1 -1 Q)
(JRST 7)
(LABEL 3) (MOVE O4 (SPECIAL 7))
(MOVE O1 (CONSTANT 5))
(MOVE O2 (CONSTANT 6))
(MOVE O3 -4 Q)
(CALL LIST 4)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 -5 Q)
(CALL LENGTH 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 9))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 (CONSTANT 10))
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 -7 Q)
(CALL RETREGS 1)
(UNBIND 1)
(SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-MULTIPLE-VALUE-CALL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-MULTIPLE-VALUE-CALL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-MULTIPLE-VALUE-CALL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MULTIPLE-VALUE-CALL) (QUOTE CG) (QUOTE CG-MULTIPLE-VALUE-CALL))
#_(LAP #0_CG-VALUES EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(6 (SETZB O1 N) LAP-CODE MOVEI N CALL VALUES)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(CALL COMPILE-ARGS 1)
(MOVE O1 -1 Q)
(CALL LENGTH 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CALL < 2)
(JUMPE O1 3)
(MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 5)
(MOVE O1 (CONSTANT 1))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(JRST 6)
(LABEL 5) (MOVE O1 -1 Q)
(CALL LENGTH 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 (CONSTANT 4))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(LABEL 6) (JRST 4)
(LABEL 3) (MOVE O1 -1 Q)
(CALL LENGTH 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 (CONSTANT 6))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(LABEL 4) (MOVE O1 -2 Q)
(CALL RETREGS 1)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-VALUES) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-VALUES) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-VALUES) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE VALUES) (QUOTE CG) (QUOTE CG-VALUES))
#_(LAP #0_CG-THROW EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 -1 Q)
(CALL COMP-THROW 2)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-THROW) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-THROW) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-THROW) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE THROW) (QUOTE CG) (QUOTE CG-THROW))
#_(LAP #0_COMP-THROW EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(O1 (ICALL CTHROW) LAP-CODE MULTIPLE (POPJ P))
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O2 (CONSTANT 0))
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 1))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O2 (CONSTANT 3))
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE COMP-THROW) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (TAG VALUE)))
(%PUT (QUOTE COMP-THROW) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE COMP-THROW) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-CATCH EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* (CATCH) *BENV* O1 (ICALL CCATCH) LAP-CODE JUMPA MULTIPLE (POPJ P) LABEL)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -2 Q)
(MOVE O2 (SPECIAL 2))
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVEM O1 -1 Q)
(SPEC-BIND (SPECIAL 2))
(MOVEM O1 (SPECIAL 2))
(MOVE O2 (CONSTANT 3))
(MOVE O1 -4 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 (CONSTANT 7))
(MOVE O1 -3 Q)
(CALL CG-PROGN-BODY 2)
(MOVE O1 (CONSTANT 8))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -5 Q)
(CALL RETREGS 1)
(UNBIND 1)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE CG-CATCH) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-CATCH) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-CATCH) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CATCH) (QUOTE CG) (QUOTE CG-CATCH))
#_(LAP #0_CG-UNWIND-PROTECT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* (GULF) *BENV* (ICALL CUNWIND) LAP-CODE JUMPA (O1 O2 O3 O4 O5 MULTIPLE TAIL PREDICATE INV-PREDICATE) :TEST EQL MULTIPLE (POPJ P) LABEL)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -4 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 2))
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVEM O1 -2 Q)
(SPEC-BIND (SPECIAL 2))
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (CONSTANT 3))
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O5 -7 Q)
(MOVEM O5 0 Q)
(MOVE O4 (CONSTANT 8))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 6))
(MOVE O3 (CONSTANT 7))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O2 (CONSTANT 9))
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O2 -7 Q)
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(LABEL 5)
(LABEL 3) (MOVE O1 (CONSTANT 10))
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 NIL)
(MOVE O1 -5 Q)
(CALL CG-PROGN-BODY 2)
(MOVE O1 (CONSTANT 10))
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 11))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O5 -7 Q)
(MOVEM O5 0 Q)
(MOVE O4 (CONSTANT 8))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 6))
(MOVE O3 (CONSTANT 7))
(CALL MEMBER 4)
(JUMPE O1 8)
(MOVE O1 -7 Q)
(CALL RETREGS 1)
(JRST 7)
(LABEL 8) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 7) (UNBIND 1)
(SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-UNWIND-PROTECT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-UNWIND-PROTECT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-UNWIND-PROTECT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE UNWIND-PROTECT) (QUOTE CG) (QUOTE CG-UNWIND-PROTECT))
#_(LAP #0_CG-DECLARE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Misplaced DECLARE form. Ignoring it.")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-WARNING 1)
(MOVE O1 NIL)
(MOVEI N 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CG-DECLARE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-DECLARE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-DECLARE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DECLARE) (QUOTE CG) (QUOTE CG-DECLARE))
#_(LAP #0_BR-NULL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(PREDICATE INV-PREDICATE JUMPA1 LAP-CODE JUMPA)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVEM O3 -1 Q)
(MOVE O2 (CONSTANT 0))
(CALL CG-FORM 2)
(MOVE O2 (CONSTANT 1))
(CAME O2 -1 Q)
(JRST 3)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(JRST 4)
(LABEL 3) (MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(LABEL 4) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE BR-NULL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (PRED DEST WHERE)))
(%PUT (QUOTE BR-NULL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BR-NULL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_BR-NOT-NULL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(PREDICATE INV-PREDICATE JUMPA1 LAP-CODE (NIL INV-PREDICATE) :TEST EQL JUMPA (TAIL MULTIPLE O1 O2 O3 O4 O5 O6) SKIPE (TAIL MULTIPLE) O1 *TEMPS* *QREF* (SKIPE NIL O1))
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVEM O3 -3 Q)
(MOVE O5 O3)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 -2 Q)
(JRST 4)
(MOVE O2 (CONSTANT 1))
(CALL CG-FORM 2)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O4 (CONSTANT 6))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 4))
(MOVE O3 (CONSTANT 5))
(CALL MEMBER 4)
(JUMPE O1 5)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O4 (CONSTANT 6))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O3 (CONSTANT 5))
(CALL MEMBER 4)
(JUMPE O1 6)
(MOVE O2 -3 Q)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O2 (CONSTANT 10))
(MOVE O1 -3 Q)
(CALL MEMQ 2)
(JUMPE O1 7)
(MOVE O5 (CONSTANT 11))
(MOVEM O5 0 Q)
(JRST 8)
(LABEL 7) (MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(LABEL 8) (MOVE O2 (SPECIAL 12))
(MOVE O1 -3 Q)
(CALL MEMQ 2)
(JUMPE O1 9)
(MOVE O1 (SPECIAL 13))
(CALL LIST 1)
(MOVE O4 O1)
(JRST 10)
(LABEL 9) (MOVE O4 NIL)
(LABEL 10) (MOVE O1 (CONSTANT 9))
(MOVE O2 NIL)
(MOVE O3 0 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 11)
(MOVE O2 (CONSTANT 11))
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 14))
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 -3 Q)
(CALL RETO1 1)
(MOVE O1 (CONSTANT 14))
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVEI N 1)
(LABEL 11)
(LABEL 3) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE BR-NOT-NULL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (PRED DEST WHERE)))
(%PUT (QUOTE BR-NOT-NULL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE BR-NOT-NULL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-AND EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* (PREDICATE INV-PREDICATE) :TEST EQL LABEL LAP-CODE JRST)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O1 O5)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -7 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O5 -6 Q)
(MOVEM O5 -5 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -4 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -3 Q)
(LABEL 10) (MOVE O1 -5 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O5 -7 Q)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 3))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 1))
(MOVE O3 (CONSTANT 2))
(CALL MEMBER 4)
(JUMPE O1 14)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -7 Q)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(JRST 13)
(LABEL 14) (SKIPA)
(JRST 15)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -7 Q)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -7 Q)
(CALL RETNIL 1)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(LABEL 15)
(LABEL 13) (JRST 6)
(LABEL 11) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O3 -7 Q)
(MOVE O1 O5)
(MOVE O2 -4 Q)
(CALL BR-NULL 3)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(JRST 10)
(LABEL 6)
(LABEL 5)
(LABEL 3) (SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-AND) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-AND) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-AND) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE AND) (QUOTE CG) (QUOTE CG-AND))
#_(LAP #0_CG-OR EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* LABEL LAP-CODE)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 O5)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 -6 Q)
(CALL RETNIL 1)
(JRST 3)
(LABEL 4) (MOVE O1 -5 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -6 Q)
(MOVE O1 O5)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O5 -5 Q)
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -2 Q)
(LABEL 11) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 12)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -6 Q)
(MOVE O1 O5)
(CALL CG-FORM 2)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVEI N 1)
(JRST 7)
(LABEL 12) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O3 -6 Q)
(MOVE O1 O5)
(MOVE O2 -2 Q)
(CALL BR-NOT-NULL 3)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(JRST 11)
(LABEL 7)
(LABEL 6)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE CG-OR) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-OR) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-OR) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE OR) (QUOTE CG) (QUOTE CG-OR))
#_(LAP #0_CG-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* PREDICATE (PREDICATE INV-PREDICATE) JUMPA LAP-CODE JRST1 JRST LABEL)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVEM NIL -4 Q)
(LABEL 5)
(LABEL 3) (MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -3 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -2 Q)
(MOVE O3 (CONSTANT 1))
(MOVE O1 -6 Q)
(MOVE O2 -3 Q)
(CALL BR-NULL 3)
(MOVE O2 -7 Q)
(MOVE O1 -5 Q)
(CALL CG-FORM 2)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -7 Q)
(CALL MEMQ 2)
(JUMPE O1 7)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(JRST 8)
(LABEL 7) (MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(LABEL 8) (MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL CG-FORM 2)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVEI N 1)
(SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE CG-IF) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-IF) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-IF) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE IF) (QUOTE CG) (QUOTE CG-IF))
#_(LAP #0_CG-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((NIL) :TEST EQL PREDICATE INV-PREDICATE O1 (TDCN O1 O1) LAP-CODE MOVE CONSTANT T)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O5 O2)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 2))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 5)
(MOVE O2 (CONSTANT 4))
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 5) (MOVE O2 (CONSTANT 4))
(CAME O2 -1 Q)
(JRST 6)
(MOVE O2 (CONSTANT 3))
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O2 (CONSTANT 5))
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 6))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(MOVE O1 (CONSTANT 10))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 9)
(MOVE O3 NIL)
(LABEL 9) (MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 5))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 7))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 7))
(MOVE O1 -3 Q)
(CALL RETO1 1)
(LABEL 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-NOT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-NOT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-NOT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NOT) (QUOTE CG) (QUOTE CG-NOT))
#_(LAP #0_CG-COND EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*LABEL-COUNTER* "Atomic clause in Cond: ~S" T (PREDICATE INV-PREDICATE) JUMPA LAP-CODE JRST1 JRST LABEL)
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVE O5 1 O1)
(MOVEM O5 -8 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -7 Q)
(MOVEM NIL -6 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -2 Q)
(LABEL 7) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 11)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 1))
(CALL CLC-ERROR 2)
(JRST 10)
(LABEL 11) (MOVE O1 -3 Q)
(SKIPN NIL 1 O1)
(JRST 12)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 13)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 -1 Q)
(JRST 15)
(MOVE O1 (CONSTANT 2))
(MOVEM O1 -6 Q)
(LABEL 15)
(LABEL 13) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O3 NIL)
(MOVE O1 O5)
(MOVE O2 -2 Q)
(CALL BR-NULL 3)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -9 Q)
(MOVE O1 O5)
(CALL CG-PROGN-BODY 2)
(MOVE O2 (CONSTANT 3))
(MOVE O1 -9 Q)
(CALL MEMQ 2)
(JUMPE O1 17)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 6))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(JRST 18)
(LABEL 17) (MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(LABEL 18) (MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 8))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(JRST 10)
(LABEL 12) (SKIPA)
(JRST 19)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O3 -9 Q)
(MOVE O1 O5)
(MOVE O2 -7 Q)
(CALL BR-NOT-NULL 3)
(LABEL 19)
(LABEL 10) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -3 Q)
(MOVE O1 (SPECIAL 0))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 0))
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SKIPE NIL -6 Q)
(JRST 22)
(MOVE O1 -9 Q)
(CALL RETNIL 1)
(LABEL 22) (MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 8))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -5 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVEI N 1)
(SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE CG-COND) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-COND) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-COND) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COND) (QUOTE CG) (QUOTE CG-COND))
#_(LAP #0_CG-CAR EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(O1 (0 O1))
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(SKIPN NIL -1 Q)
(JRST 4)
(MOVE O2 (CONSTANT 0))
(MOVE O1 0 Q)
(CALL CG-FORM 2)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 1))
(CALL RETMEM 2)
(JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CG-CAR) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-CAR) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-CAR) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAR) (QUOTE CG) (QUOTE CG-CAR))
#_(LAP #0_CG-CDR EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(O1 (1 O1))
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(SKIPN NIL -1 Q)
(JRST 4)
(MOVE O2 (CONSTANT 0))
(MOVE O1 0 Q)
(CALL CG-FORM 2)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 1))
(CALL RETMEM 2)
(JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CG-CDR) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-CDR) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-CDR) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDR) (QUOTE CG) (QUOTE CG-CDR))
#_(LAP #0_CG-SVREF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(O1 (O1) (ADDI O1 0 O2) LAP-CODE (0 O1))
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPN NIL -3 Q)
(JRST 4)
(MOVE O1 -1 Q)
(CALL NUMBERP 1)
(JUMPE O1 6)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -1 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL RETMEM 2)
(JRST 5)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL LIST 2)
(CALL COMPILE-ARGS 1)
(MOVE O1 (CONSTANT 2))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 4))
(CALL RETMEM 2)
(LABEL 7)
(LABEL 5) (JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-SVREF) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-SVREF) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-SVREF) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LISP::%SP-SVREF) (QUOTE CG) (QUOTE CG-SVREF))
#_(LAP #0_CG-SVSET EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(MOVEM O2 (O1) LAP-CODE (ADDI O1 0 O2) (MOVEM O3 0 O1) (0 O1))
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL NUMBERP 1)
(JUMPE O1 4)
(MOVE O2 -1 Q)
(MOVE O1 -3 Q)
(CALL LIST 2)
(CALL COMPILE-ARGS 1)
(MOVE O4 (CONSTANT 2))
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(MOVE O3 -2 Q)
(CALL LIST* 4)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O2 (CONSTANT 2))
(MOVE O1 -2 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 -4 Q)
(CALL RETMEM 2)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O3 -1 Q)
(MOVE O1 -3 Q)
(MOVE O2 -2 Q)
(CALL LIST 3)
(CALL COMPILE-ARGS 1)
(MOVE O1 (CONSTANT 4))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 (CONSTANT 5))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 6))
(CALL RETMEM 2)
(LABEL 5)
(LABEL 3) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE CG-SVSET) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-SVSET) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-SVSET) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LISP::%SP-SVSET) (QUOTE CG) (QUOTE CG-SVSET))
#_(LAP #0_CG-EQ EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAME CAMN)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O5 (CONSTANT 1))
(MOVE O1 -1 Q)
(MOVE O2 0 Q)
(MOVE O3 -2 Q)
(MOVE O4 (CONSTANT 0))
(CALL CG-1INST-PRED 5)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-EQ) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-EQ) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-EQ) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EQ) (QUOTE CG) (QUOTE CG-EQ))
#_(LAP #0_CG-1INST-PRED EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(O2 O1 LAP-CODE MOVE (MOVE O2 O1) INV-PREDICATE)
(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)
(SKIPE NIL -5 Q)
(JRST 3)
(MOVE O2 NIL)
(MOVE O1 -7 Q)
(CALL CG-FORM 2)
(MOVE O2 NIL)
(MOVE O1 -6 Q)
(CALL CG-FORM 2)
(JRST 4)
(LABEL 3) (MOVE O2 -6 Q)
(MOVE O1 -7 Q)
(CALL LIST 2)
(CALL COMPILE-ARGS 1)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL LIST 1)
(MOVEM O1 -1 Q)
(MOVE O1 (SPECIAL 2))
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 0 Q)
(JRST 6)
(MOVE O1 (SPECIAL 2))
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 (SPECIAL 2))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 (SPECIAL 2))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 4))
(MOVE O1 O5)
(CALL EQUAL 2)
(JUMPE O1 8)
(MOVE O1 (SPECIAL 1))
(MOVEM O1 -2 Q)
(MOVE O1 (SPECIAL 2))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 2))
(LABEL 8)
(LABEL 6) (MOVE O2 (CONSTANT 5))
(CAME O2 -5 Q)
(JRST 11)
(MOVE O1 -3 Q)
(MOVEM O1 -4 Q)
(LABEL 11) (MOVE O3 -1 Q)
(MOVE O1 -4 Q)
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 2))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 2))
(MOVE O1 -5 Q)
(CALL RETURNPRED 1)
(LABEL 4) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE CG-1INST-PRED) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (A1 A2 WHERE OP INV-OP)))
(%PUT (QUOTE CG-1INST-PRED) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-1INST-PRED) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_RETURNPRED EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((PREDICATE INV-PREDICATE) :TEST EQL (O1 O2 O3 O4 O5) SKIPA (NIL) LAP-CODE T O1)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O4 (CONSTANT 2))
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O4 (CONSTANT 2))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 5)
(MOVE O3 (CONSTANT 5))
(MOVE O1 (CONSTANT 4))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 7))
(CALL CG-FORM 2)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 (CONSTANT 8))
(CALL RETURNPRED 1)
(MOVE O1 -2 Q)
(CALL RETO1 1)
(LABEL 6)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE RETURNPRED) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (WHERE)))
(%PUT (QUOTE RETURNPRED) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE RETURNPRED) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-EQL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* CAME CAMN EQL)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPN NIL (SPECIAL 0))
(JRST 3)
(MOVE O5 (CONSTANT 2))
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 -3 Q)
(MOVE O4 (CONSTANT 1))
(CALL CG-1INST-PRED 5)
(JRST 4)
(LABEL 3) (MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 4) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-EQL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-EQL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-EQL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EQL) (QUOTE CG) (QUOTE CG-EQL))
#_(LAP #0_CG-= EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* CAME CAMN =)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O1 -3 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 6)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(LABEL 6) (JRST 5)
(MOVE O5 (CONSTANT 2))
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 -3 Q)
(MOVE O4 (CONSTANT 1))
(CALL CG-&/-PRED 5)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 8)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 8)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-=) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-=) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-=) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE =) (QUOTE CG) (QUOTE CG-=))
#_(LAP #0_CG-/= EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* CAMN CAME /=)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(SKIPE NIL -2 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -3 Q)
(CALL CG-FORM 2)
(MOVE O1 -4 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 6)
(MOVE O1 -2 Q)
(SKIPE NIL 1 O1)
(LABEL 6) (JRST 5)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O5 (CONSTANT 2))
(MOVE O1 -3 Q)
(MOVE O2 0 Q)
(MOVE O3 -4 Q)
(MOVE O4 (CONSTANT 1))
(CALL CG-1INST-PRED 5)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 8)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -3 Q)
(CALL LIST* 3)
(MOVEM O1 -1 Q)
(MOVE O2 -4 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 8)
(LABEL 3) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE CG-/=) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-/=) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-/=) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE /=) (QUOTE CG) (QUOTE CG-/=))
#_(LAP #0_CG-< EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* CAMG CAMLE <)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O1 -3 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 6)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(LABEL 6) (JRST 5)
(MOVE O5 (CONSTANT 2))
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 -3 Q)
(MOVE O4 (CONSTANT 1))
(CALL CG-&/-PRED 5)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 8)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 8)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-<) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-<) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-<) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE <) (QUOTE CG) (QUOTE CG-<))
#_(LAP #0_CG-> EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* CAML CAMGE >)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O1 -3 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 6)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(LABEL 6) (JRST 5)
(MOVE O5 (CONSTANT 2))
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 -3 Q)
(MOVE O4 (CONSTANT 1))
(CALL CG-&/-PRED 5)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 8)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 8)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG->) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG->) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG->) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE >) (QUOTE CG) (QUOTE CG->))
#_(LAP #0_CG-<= EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* CAMGE CAML <=)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O1 -3 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 6)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(LABEL 6) (JRST 5)
(MOVE O5 (CONSTANT 2))
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 -3 Q)
(MOVE O4 (CONSTANT 1))
(CALL CG-&/-PRED 5)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 8)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 8)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-<=) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-<=) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-<=) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE <=) (QUOTE CG) (QUOTE CG-<=))
#_(LAP #0_CG->= EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* CAMLE CAMG >=)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O1 -3 Q)
(CALL RETT 1)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 6)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(LABEL 6) (JRST 5)
(MOVE O5 (CONSTANT 2))
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O3 -3 Q)
(MOVE O4 (CONSTANT 1))
(CALL CG-&/-PRED 5)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 8)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 8)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG->=) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG->=) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG->=) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE >=) (QUOTE CG) (QUOTE CG->=))
#_(LAP #0_CG-&/-PRED EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(INV-PREDICATE 1 O2 O1 LAP-CODE MOVE (MOVE O2 O1) 2 (O2 O1) (O3 O2) 3 (SKIPA) (O4 O3) 4 *LABEL-COUNTER* JUMPA (O5 O4) LABEL)
(CODE-START)
(LABEL 1) (ADDI Q 10)
(MOVEM O1 -9 Q)
(MOVEM O2 -8 Q)
(MOVEM O3 -7 Q)
(MOVEM O4 -6 Q)
(MOVEM O5 -5 Q)
(SKIPE NIL -7 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -9 Q)
(CALL CG-FORM 2)
(MOVE O2 NIL)
(MOVE O1 -8 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O2 -8 Q)
(MOVE O1 -9 Q)
(CALL LIST* 2)
(CALL COMPILE-ARGS 1)
(MOVE O2 (CONSTANT 0))
(CAME O2 -7 Q)
(JRST 6)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -3 Q)
(MOVE O1 O5)
(MOVEM O1 -6 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -5 Q)
(LABEL 6) (MOVE O1 -8 Q)
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -4 Q)
(JRST 9)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -2 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 1)
(MOVEM O1 -1 Q)
(MOVE O1 (SPECIAL 4))
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 5))
(CAME O2 0 Q)
(JRST 11)
(MOVE O1 (SPECIAL 4))
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 (SPECIAL 4))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 (SPECIAL 4))
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL EQUAL 2)
(JUMPE O1 13)
(MOVE O1 (SPECIAL 3))
(MOVEM O1 -2 Q)
(MOVE O1 (SPECIAL 4))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 4))
(LABEL 13)
(LABEL 11) (MOVE O3 -1 Q)
(MOVE O1 -6 Q)
(MOVE O2 -2 Q)
(CALL LIST* 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(JRST 8)
(LABEL 9) (MOVE O2 (CONSTANT 7))
(CAME O2 -4 Q)
(JRST 16)
(MOVE O2 (CONSTANT 8))
(MOVE O1 -5 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (CONSTANT 9))
(MOVE O1 -6 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(JRST 8)
(LABEL 16) (MOVE O2 (CONSTANT 10))
(CAME O2 -4 Q)
(JRST 17)
(MOVE O2 (CONSTANT 8))
(MOVE O1 -5 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (CONSTANT 9))
(MOVE O1 -6 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O1 (CONSTANT 11))
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (CONSTANT 12))
(MOVE O1 -6 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -3 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(JRST 8)
(LABEL 17) (MOVE O2 (CONSTANT 13))
(CAME O2 -4 Q)
(JRST 18)
(MOVE O1 (SPECIAL 14))
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVEM O1 (SPECIAL 14))
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O1 -5 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (CONSTANT 9))
(MOVE O1 -6 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 15))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (CONSTANT 12))
(MOVE O1 -5 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 (CONSTANT 16))
(MOVE O1 -6 Q)
(CALL CONS 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 17))
(CALL LIST 2)
(CALL COPY-LIST 1)
(MOVEM O1 -1 Q)
(MOVE O2 (SPECIAL 4))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 4))
(LABEL 18)
(LABEL 8) (MOVE O1 -7 Q)
(CALL RETURNPRED 1)
(LABEL 5)
(LABEL 3) (SUBI Q 10)
(POPJ P)
)
(%PUT (QUOTE CG-&/-PRED) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (A1 A2 WHERE OP INV-OP)))
(%PUT (QUOTE CG-&/-PRED) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-&/-PRED) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-+ EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* SUB O1 CONSTANT 0 LAP-CODE (ADD O1 O2) +)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -3 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 5)
(MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL LIST 2)
(CALL COMPILE-ARGS 1)
(MOVE O1 (CONSTANT 4))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 7)
(MOVE O3 NIL)
(LABEL 7) (MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 (CONSTANT 6))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -3 Q)
(CALL RETO1 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 8)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 8)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG-+) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-+) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-+) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE +) (QUOTE CG) (QUOTE CG-+))
#_(LAP #0_CG-- EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* O1 SUB CONSTANT 0 LAP-CODE (MOVN O1 O1) (SUB O1 O2) ADD -)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -3 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(SKIPN NIL -1 Q)
(JRST 5)
(MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(JRST 6)
(LABEL 5) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 6) (JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 7)
(SKIPE NIL -1 Q)
(JRST 9)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -2 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 4))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 11)
(MOVE O3 NIL)
(LABEL 11) (MOVE O1 (CONSTANT 2))
(MOVE O2 (CONSTANT 1))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 (CONSTANT 6))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(JRST 8)
(LABEL 9) (SKIPA)
(JRST 12)
(MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL LIST 2)
(CALL COMPILE-ARGS 1)
(MOVE O1 (CONSTANT 7))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(LABEL 12)
(LABEL 8) (SKIPA)
(JRST 14)
(MOVE O1 (CONSTANT 4))
(CALL MAKE-CONST 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVE O3 O1)
(JRST 15)
(LABEL 14) (MOVE O3 NIL)
(LABEL 15) (MOVE O1 (CONSTANT 8))
(MOVE O2 (CONSTANT 1))
(CALL LIST 3)
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 5))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 5))
(MOVE O1 -3 Q)
(CALL RETO1 1)
(JRST 3)
(LABEL 7) (SKIPE NIL -1 Q)
(JRST 16)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(JRST 3)
(LABEL 16) (SKIPA)
(JRST 17)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 9))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 17)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE CG--) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG--) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG--) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE -) (QUOTE CG) (QUOTE CG--))
#_(LAP #0_CG-1+ EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* O1 (ADDI O1 1) LAP-CODE 1+)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -2 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 5)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 2))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 -2 Q)
(CALL RETO1 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -2 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 6)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-1+) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-1+) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-1+) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE 1+) (QUOTE CG) (QUOTE CG-1+))
#_(LAP #0_CG-1- EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*ALL-NUMBERS-ARE-FIXNUMS* O1 (SUBI O1 1) LAP-CODE 1-)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -2 Q)
(JRST 4)
(MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(JRST 3)
(LABEL 4) (SKIPN NIL (SPECIAL 0))
(JRST 5)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -1 Q)
(CALL CG-FORM 2)
(MOVE O1 (CONSTANT 2))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 3))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 3))
(MOVE O1 -2 Q)
(CALL RETO1 1)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -2 Q)
(CALL CG-EXPR-CALL 2)
(LABEL 6)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CG-1-) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-1-) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-1-) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE 1-) (QUOTE CG) (QUOTE CG-1-))
#_(LAP #0_CG-PROGV EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((PREDICATE INV-PREDICATE) SPECIAL O1 (GULF) *BENV* (PUSH P SP) LAP-CODE (ICALL BINDV) (POP P W2) (ICALL UNBIND))
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -6 Q)
(CALL MEMQ 2)
(JUMPN1 O1 5)
(MOVE O1 -6 Q)
(CALL CONSP 1)
(JUMPE O1 6)
(MOVE O1 -6 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 1))
(LABEL 6)
(LABEL 5) (JRST 4)
(MOVE O5 -6 Q)
(MOVEM O5 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVEM O1 -6 Q)
(MOVEM O5 -2 Q)
(JRST 3)
(LABEL 4) (MOVEM NIL -2 Q)
(LABEL 3) (MOVE O2 (SPECIAL 4))
(MOVE O1 (CONSTANT 3))
(CALL CONS 2)
(MOVEM O1 -1 Q)
(SPEC-BIND (SPECIAL 4))
(MOVEM O1 (SPECIAL 4))
(MOVE O2 -4 Q)
(MOVE O1 -5 Q)
(CALL LIST 2)
(CALL COMPILE-ARGS 1)
(MOVE O1 (CONSTANT 5))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 (CONSTANT 7))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O2 -6 Q)
(MOVE O1 -3 Q)
(CALL CG-PROGN-BODY 2)
(MOVE O1 (CONSTANT 8))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(MOVE O1 (CONSTANT 9))
(CALL COPY-LIST 1)
(MOVEM O1 0 Q)
(MOVE O2 (SPECIAL 6))
(CALL CONS 2)
(MOVEM O1 (SPECIAL 6))
(SKIPN NIL -2 Q)
(JRST 9)
(MOVE O1 -2 Q)
(CALL RETO1 1)
(JRST 10)
(LABEL 9) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 10) (UNBIND 1)
(SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE CG-PROGV) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-PROGV) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-PROGV) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PROGV) (QUOTE CG) (QUOTE CG-PROGV))
#_(LAP #0_LAMBDA-TO-LET EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Too many args supplied to Lambda form." &OPTIONAL &REST &AUX (&KEY &ALLOW-OTHER-KEYS) :TEST EQL "Stray ~S in Lambda list." "Too few args supplied to Lambda form.")
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVE O5 O2)
(MOVEM O5 -4 Q)
(MOVEM NIL -3 Q)
(LABEL 7) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(SKIPE NIL -4 Q)
(JRST 11)
(MOVE O1 -3 Q)
(CALL NREVERSE 1)
(JRST 10)
(LABEL 11) (SKIPA)
(JRST 12)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 1)
(MOVE O1 -3 Q)
(CALL NREVERSE 1)
(LABEL 12)
(LABEL 10) (JRST 3)
(LABEL 8) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -1 Q)
(JRST 15)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O3 -3 Q)
(MOVE O1 O5)
(MOVE O2 -4 Q)
(CALL LAMBDA-TO-LET-OPTIONAL 3)
(JRST 3)
(LABEL 15) (MOVE O2 (CONSTANT 2))
(CAME O2 -1 Q)
(JRST 16)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O3 -3 Q)
(MOVE O1 O5)
(MOVE O2 -4 Q)
(CALL LAMBDA-TO-LET-REST 3)
(JRST 3)
(LABEL 16) (MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 17)
(SKIPE NIL -4 Q)
(JRST 19)
(MOVE O1 -3 Q)
(CALL NREVERSE 1)
(MOVEM O1 0 Q)
(MOVE O1 -5 Q)
(MOVE O2 1 O1)
(MOVE O1 0 Q)
(CALL NCONC 2)
(JRST 3)
(LABEL 19) (SKIPA)
(JRST 20)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 1)
(MOVE O1 -3 Q)
(CALL NREVERSE 1)
(JRST 3)
(LABEL 20) (JRST 14)
(LABEL 17) (MOVE O4 (CONSTANT 6))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 4))
(MOVE O3 (CONSTANT 5))
(CALL MEMBER 4)
(JUMPE O1 22)
(MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 7))
(CALL CLC-ERROR 2)
(MOVE O1 -3 Q)
(CALL NREVERSE 1)
(JRST 3)
(LABEL 22)
(LABEL 14) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 25)
(MOVE O1 (CONSTANT 8))
(CALL CLC-ERROR 1)
(MOVE O1 -3 Q)
(CALL NREVERSE 1)
(JRST 3)
(LABEL 25) (SKIPA)
(JRST 26)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 -3 Q)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(LABEL 26) (MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVEM O1 -4 Q)
(JRST 7)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE LAMBDA-TO-LET) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LAMBDA-LIST ARGUMENT-LIST)))
(%PUT (QUOTE LAMBDA-TO-LET) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE LAMBDA-TO-LET) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_LAMBDA-TO-LET-OPTIONAL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_("Too many args supplied to Lambda form." &REST &AUX (&OPTIONAL &KEY &ALLOW-OTHER-KEYS) :TEST EQL "Stray ~S in Lambda list." T)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVE O5 O1)
(MOVEM O5 -4 Q)
(MOVE O5 O2)
(MOVEM O5 -3 Q)
(MOVEM NIL -2 Q)
(LABEL 7) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(SKIPE NIL -3 Q)
(JRST 11)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(JRST 10)
(LABEL 11) (SKIPA)
(JRST 12)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 1)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(LABEL 12)
(LABEL 10) (JRST 3)
(LABEL 8) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(MOVE O5 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -1 Q)
(JRST 15)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O3 -5 Q)
(MOVE O1 O5)
(MOVE O2 -3 Q)
(CALL LAMBDA-TO-LET-REST 3)
(JRST 3)
(LABEL 15) (MOVE O2 (CONSTANT 2))
(CAME O2 -1 Q)
(JRST 16)
(SKIPE NIL -3 Q)
(JRST 18)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(MOVEM O1 0 Q)
(MOVE O1 -4 Q)
(MOVE O2 1 O1)
(MOVE O1 0 Q)
(CALL NCONC 2)
(JRST 3)
(LABEL 18) (SKIPA)
(JRST 19)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 1)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(LABEL 19) (JRST 14)
(LABEL 16) (MOVE O4 (CONSTANT 5))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 (CONSTANT 4))
(CALL MEMBER 4)
(JUMPE O1 21)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 6))
(CALL CLC-ERROR 2)
(MOVE O1 -5 Q)
(CALL NREVERSE 1)
(JRST 3)
(LABEL 21) (SKIPA)
(JRST 22)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 24)
(MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 26)
(MOVE O2 NIL)
(MOVE O1 -2 Q)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(JRST 25)
(LABEL 26) (SKIPA)
(JRST 27)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(CALL CONSP 1)
(JUMPE O1 28)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(LABEL 28)
(LABEL 27)
(LABEL 25) (JRST 23)
(LABEL 24) (SKIPA)
(JRST 31)
(MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 33)
(MOVE O1 -3 Q)
(MOVE O2 0 O1)
(MOVE O1 -2 Q)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(JRST 32)
(LABEL 33) (SKIPA)
(JRST 34)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(CALL CONSP 1)
(JUMPE O1 35)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 7))
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(CALL CONS 2)
(MOVEM O1 -5 Q)
(LABEL 35)
(LABEL 34)
(LABEL 32) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(LABEL 31)
(LABEL 23)
(LABEL 22)
(LABEL 14) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(JRST 7)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE LAMBDA-TO-LET-OPTIONAL) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LAMBDA-LIST ARGUMENT-LIST LET-LIST)))
(%PUT (QUOTE LAMBDA-TO-LET-OPTIONAL) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE LAMBDA-TO-LET-OPTIONAL) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_LAMBDA-TO-LET-REST EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_("Ill formed &rest arg in Lambda list." LIST &AUX "Ill-formed lambda list.")
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVEM O3 -1 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPN O1 4)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 1)
(MOVE O1 -1 Q)
(CALL NREVERSE 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 6)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 0 Q)
(JRST 7)
(LABEL 6) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL LIST 2)
(MOVEM O1 0 Q)
(LABEL 7) (MOVE O2 -1 Q)
(MOVE O1 0 Q)
(CALL CONS 2)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 9)
(MOVE O1 -1 Q)
(CALL NREVERSE 1)
(JRST 8)
(LABEL 9) (MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 2))
(CAME O2 0 Q)
(JRST 10)
(MOVE O1 -1 Q)
(CALL NREVERSE 1)
(MOVEM O1 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O2 1 O1)
(MOVE O1 0 Q)
(CALL NCONC 2)
(JRST 8)
(LABEL 10) (SKIPA)
(JRST 11)
(MOVE O1 (CONSTANT 3))
(CALL CLC-ERROR 1)
(LABEL 11)
(LABEL 8)
(LABEL 5)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE LAMBDA-TO-LET-REST) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (LAMBDA-LIST ARGUMENT-LIST LET-LIST)))
(%PUT (QUOTE LAMBDA-TO-LET-REST) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE LAMBDA-TO-LET-REST) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_CG-%HASHCO EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("#, form in inappropriate context")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL CLC-ERROR 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CG-%HASHCO) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM** WHERE)))
(%PUT (QUOTE CG-%HASHCO) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE CG-%HASHCO) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE %HASHCO) (QUOTE CG) (QUOTE CG-%HASHCO))
#_(LAP #0_%HASHCO 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." %HASHCO "#, form in inappropriate context")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(CALL LENGTH 1)
(MOVEM O1 -1 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPN O1 4)
(MOVE O1 -2 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 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 (CONSTANT 3))
(CALL CLC-ERROR 1)
(LABEL 5)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE %HASHCO) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE %HASHCO) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE %HASHCO) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_LISP::SHARP-COMMA EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(T *READ-SUPPRESS* *COMPILER-IS-READING* *SHARP-COMMA-SEEN* %HASHCO)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVEM O3 -1 Q)
(MOVE O4 (CONSTANT 0))
(MOVE O2 NIL)
(MOVE O3 O2)
(CALL READ 4)
(MOVEM O1 0 Q)
(SKIPE NIL (SPECIAL 1))
(JRST 4)
(SKIPN NIL (SPECIAL 2))
(JRST 5)
(MOVE O1 (CONSTANT 0))
(MOVEM O1 (SPECIAL 3))
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(JRST 6)
(LABEL 5) (MOVE O1 0 Q)
(CALL EVAL 1)
(LABEL 6) (JRST 3)
(LABEL 4) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE LISP::SHARP-COMMA) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (STREAM IGNORE IGNORE)))
(%PUT (QUOTE LISP::SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE LISP::SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(SET-DISPATCH-MACRO-CHARACTER #\# #\, (FUNCTION LISP::SHARP-COMMA))
#_(LAP #0_SCLEAN EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*SHARP-COMMA-SEEN*)
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(SKIPN NIL (SPECIAL 0))
(JRST 3)
(MOVE O1 0 Q)
(CALL SUBST-SHARP-COMMA 1)
(JRST 4)
(LABEL 3) (MOVE O1 0 Q)
(MOVEI N 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE SCLEAN) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE SCLEAN) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SCLEAN) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_SCPRINT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*SHARP-COMMA-SEEN*)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVEM O2 0 Q)
(SKIPN NIL (SPECIAL 0))
(JRST 3)
(MOVE O1 0 Q)
(CALL TERPRI 1)
(MOVE O2 0 Q)
(MOVE O1 -1 Q)
(CALL PRIN1-SHARP-DOT 2)
(JRST 4)
(LABEL 3) (MOVE O2 0 Q)
(MOVE O1 -1 Q)
(CALL PRINT 2)
(LABEL 4) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE SCPRINT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM STREAM)))
(%PUT (QUOTE SCPRINT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SCPRINT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SUBST-SHARP-COMMA) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Return the form with FOO evaluated when found in (%hashco FOO)."))
#_(LAP #0_SUBST-SHARP-COMMA EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(%HASHCO)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(CALL CONSP 1)
(JUMPN1 O1 6)
(MOVE O1 -1 Q)
(CALL ARRAYP 1)
(SKIPN NIL O1)
(LABEL 6) (JRST1 5)
(MOVE O1 -1 Q)
(CALL STRINGP 1)
(JUMPN1 O1 5)
(MOVE O1 -1 Q)
(CALL BIT-VECTOR-P 1)
(SKIPN NIL O1)
(LABEL 5) (JRST 4)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -1 Q)
(CALL VECTORP 1)
(JUMPE O1 7)
(MOVE O1 -1 Q)
(CALL SUBST-VECTOR-SHARP-COMMA 1)
(JRST 3)
(LABEL 7) (MOVE O1 -1 Q)
(CALL ARRAYP 1)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(CALL SUBST-ARRAY-SHARP-COMMA 1)
(JRST 3)
(LABEL 8) (MOVE O1 -1 Q)
(CALL CONSP 1)
(JUMPE O1 10)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(LABEL 10) (JRST 9)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL SUBST-SHARP-COMMA 1)
(CALL EVAL 1)
(JRST 3)
(LABEL 9) (SKIPA)
(JRST 12)
(MOVE O1 -1 Q)
(MOVE O1 0 O1)
(CALL SUBST-SHARP-COMMA 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(CALL SUBST-SHARP-COMMA 1)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL CONS 2)
(LABEL 12)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE SUBST-SHARP-COMMA) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE SUBST-SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SUBST-SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SUBST-VECTOR-SHARP-COMMA) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Return a vector with FOO evaluated when found in (%hashco FOO)."))
#_(LAP #0_SUBST-VECTOR-SHARP-COMMA EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -2 Q)
(CALL LENGTH 1)
(MOVEM O1 -1 Q)
(CALL MAKE-ARRAY 1)
(MOVEM O1 0 Q)
(LABEL 7) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL AREF 2)
(CALL SUBST-SHARP-COMMA 1)
(MOVE O3 O1)
(MOVE O1 0 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE SUBST-VECTOR-SHARP-COMMA) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VECTOR)))
(%PUT (QUOTE SUBST-VECTOR-SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SUBST-VECTOR-SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SUBST-ARRAY-SHARP-COMMA) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Return an array with FOO evaluated when found in (%hashco FOO)."))
#_(LAP #0_SUBST-ARRAY-SHARP-COMMA EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(:INITIAL-ELEMENT 0 AREF LISP::%ASET)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(CALL ARRAY-DIMENSIONS 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(CALL ARRAY-RANK 1)
(MOVEM O1 -4 Q)
(MOVE O3 (CONSTANT 1))
(MOVE O2 (CONSTANT 0))
(CALL MAKE-LIST 3)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(CALL MAKE-ARRAY 1)
(MOVEM O1 -4 Q)
(MOVEM NIL -3 Q)
(LABEL 7) (SKIPN NIL -3 Q)
(JRST 9)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 9) (MOVE O5 -4 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O3 O5)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -7 Q)
(CALL APPLY 3)
(CALL SUBST-SHARP-COMMA 1)
(MOVEM O1 0 Q)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -2 Q)
(MOVE O3 -1 Q)
(CALL LISP::APPLY-BUT-LAST 4)
(MOVE O2 -6 Q)
(MOVE O1 -5 Q)
(CALL PERM 2)
(ADJUST-VALUES 2)
(MOVEM O1 -5 Q)
(MOVEM O2 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE SUBST-ARRAY-SHARP-COMMA) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARRAY)))
(%PUT (QUOTE SUBST-ARRAY-SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SUBST-ARRAY-SHARP-COMMA) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PERM EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 0 T)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(CALL LENGTH 1)
(MOVEM O1 -3 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPE O1 4)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O1 0 O1)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 5)
(MOVE O2 NIL)
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 (CONSTANT 2))
(MOVEI N 2)
(JRST 6)
(LABEL 5) (MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O2 NIL)
(CALL CONS 2)
(MOVEM O1 -3 Q)
(MOVE O2 NIL)
(MOVEI N 2)
(LABEL 6) (JRST 3)
(LABEL 4) (SKIPA)
(JRST 7)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O2 1 O1)
(MOVE O1 O5)
(CALL PERM 2)
(ADJUST-VALUES 2)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(SKIPE NIL -1 Q)
(JRST 9)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 NIL)
(MOVEI N 2)
(JRST 8)
(LABEL 9) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 -4 Q)
(MOVE O1 0 O1)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL = 2)
(JUMPE O1 10)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 2))
(MOVEI N 2)
(JRST 8)
(LABEL 10) (SKIPA)
(JRST 11)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O2 -2 Q)
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 NIL)
(MOVEI N 2)
(LABEL 11)
(LABEL 8)
(LABEL 7)
(LABEL 3) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE PERM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (NEW ORIG)))
(%PUT (QUOTE PERM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PERM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PRIN1-SHARP-DOT) (QUOTE LISP::%FUN-DOCUMENTATION) (QUOTE "Print the form on the given stream substituting all occurances of
(%hashco foo) with #.foo."))
#_(LAP #0_PRIN1-SHARP-DOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("~S" %HASHCO "#." "(" 0 ")" " " " . ")
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(CALL CONSP 1)
(JUMPN1 O1 6)
(MOVE O1 -6 Q)
(CALL ARRAYP 1)
(SKIPN NIL O1)
(LABEL 6) (JRST1 5)
(MOVE O1 -6 Q)
(CALL STRINGP 1)
(JUMPN1 O1 5)
(MOVE O1 -6 Q)
(CALL BIT-VECTOR-P 1)
(SKIPN NIL O1)
(LABEL 5) (JRST 4)
(MOVE O3 -6 Q)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 0))
(CALL FORMAT 3)
(JRST 3)
(LABEL 4) (MOVE O1 -6 Q)
(CALL VECTORP 1)
(JUMPE O1 7)
(MOVE O2 -5 Q)
(MOVE O1 -6 Q)
(CALL PRIN1-VECTOR-SHARP-DOT 2)
(JRST 3)
(LABEL 7) (MOVE O1 -6 Q)
(CALL ARRAYP 1)
(JUMPE O1 8)
(MOVE O2 -5 Q)
(MOVE O1 -6 Q)
(CALL PRIN1-ARRAY-SHARP-DOT 2)
(JRST 3)
(LABEL 8) (MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -4 Q)
(JRST 9)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL PRIN1-SHARP-DOT 2)
(JRST 3)
(LABEL 9) (SKIPA)
(JRST 10)
(MOVE O2 (CONSTANT 3))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 4))
(MOVEM O5 -2 Q)
(LABEL 15) (SKIPE NIL -3 Q)
(JRST 16)
(MOVE O2 (CONSTANT 5))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(JRST 11)
(LABEL 16) (MOVE O2 (CONSTANT 4))
(MOVE O1 -2 Q)
(CALL > 2)
(JUMPE O1 18)
(MOVE O2 (CONSTANT 6))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(LABEL 18) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL PRIN1-SHARP-DOT 2)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(CALL CONSP 1)
(JUMPN O1 22)
(MOVE O1 -3 Q)
(SKIPN NIL 1 O1)
(LABEL 22) (JRST 21)
(MOVE O2 (CONSTANT 7))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -5 Q)
(MOVE O1 O5)
(CALL PRIN1-SHARP-DOT 2)
(MOVE O2 (CONSTANT 5))
(MOVE O1 -5 Q)
(CALL FORMAT 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 11)
(LABEL 21) (MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -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 15)
(LABEL 11)
(LABEL 10)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE PRIN1-SHARP-DOT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM STREAM)))
(%PUT (QUOTE PRIN1-SHARP-DOT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PRIN1-SHARP-DOT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PRIN1-VECTOR-SHARP-DOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("#(" 0 ")" " ")
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -3 Q)
(CALL FORMAT 2)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(CALL LENGTH 1)
(MOVEM O1 -1 Q)
(LABEL 7) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -3 Q)
(CALL FORMAT 2)
(JRST 3)
(LABEL 8) (MOVE O2 (CONSTANT 1))
(MOVE O1 -2 Q)
(CALL > 2)
(JUMPE O1 10)
(MOVE O2 (CONSTANT 3))
(MOVE O1 -3 Q)
(CALL FORMAT 2)
(LABEL 10) (MOVE O2 -2 Q)
(MOVE O1 -4 Q)
(CALL AREF 2)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL PRIN1-SHARP-DOT 2)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE PRIN1-VECTOR-SHARP-DOT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (VECTOR STREAM)))
(%PUT (QUOTE PRIN1-VECTOR-SHARP-DOT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PRIN1-VECTOR-SHARP-DOT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PRIN1-ARRAY-SHARP-DOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(CALL ARRAY-RANK 1)
(MOVEM O1 0 Q)
(MOVE O3 -1 Q)
(MOVE O1 -2 Q)
(MOVE O2 0 Q)
(CALL PRIN1-ARRAY-GUTS 3)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE PRIN1-ARRAY-SHARP-DOT) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARRAY STREAM)))
(%PUT (QUOTE PRIN1-ARRAY-SHARP-DOT) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PRIN1-ARRAY-SHARP-DOT) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_PRIN1-ARRAY-GUTS EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_("#~DA" 0 3)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVEM O3 -2 Q)
(MOVE O3 O2)
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(CALL FORMAT 3)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -4 Q)
(CALL LISP::HEADER-REF 2)
(MOVEM O1 -1 Q)
(MOVE O1 -4 Q)
(CALL ARRAY-DIMENSIONS 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -4 Q)
(CALL LISP::HEADER-REF 2)
(MOVE O4 O1)
(MOVE O1 -1 Q)
(MOVE O2 0 Q)
(MOVE O3 -2 Q)
(CALL SUB-PRIN1-ARRAY-GUTS 4)
(SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE PRIN1-ARRAY-GUTS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARRAY RANK STREAM)))
(%PUT (QUOTE PRIN1-ARRAY-GUTS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE PRIN1-ARRAY-GUTS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_SUB-PRIN1-ARRAY-GUTS EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY))
#0_("(" 0 ")" " ")
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVEM O3 -6 Q)
(MOVEM O4 -5 Q)
(SKIPE NIL -7 Q)
(JRST 4)
(MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -6 Q)
(MOVE O1 O5)
(CALL PRIN1-SHARP-DOT 2)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -6 Q)
(CALL FORMAT 2)
(MOVE O5 -5 Q)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -2 Q)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVEM O5 -1 Q)
(LABEL 10) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 11)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -6 Q)
(CALL FORMAT 2)
(MOVE O1 -3 Q)
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVE O1 -2 Q)
(CALL ZEROP 1)
(JUMPN O1 13)
(MOVE O2 (CONSTANT 3))
(MOVE O1 -6 Q)
(CALL FORMAT 2)
(LABEL 13) (MOVE O4 -3 Q)
(MOVE O1 -8 Q)
(MOVE O2 -7 Q)
(MOVE O3 -6 Q)
(CALL SUB-PRIN1-ARRAY-GUTS 4)
(MOVEM O1 -3 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(JRST 10)
(LABEL 6)
(LABEL 5)
(LABEL 3) (SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE SUB-PRIN1-ARRAY-GUTS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (ARRAY DIMENSIONS STREAM INDEX)))
(%PUT (QUOTE SUB-PRIN1-ARRAY-GUTS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>CLC.CLISP.105") (GET (QUOTE SUB-PRIN1-ARRAY-GUTS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))