Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/trans.lap
There are no other files named trans.lap in the archive.
;;; CLC vP.U.V.1(2) compiling CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7
(IN-PACKAGE "COMPILER")
#_(LAP #0_FIND-TYPE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T)
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE FIND-TYPE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (X)))
(%PUT (QUOTE FIND-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE FIND-TYPE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_DEFSYNONYM MACRO
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(3 "Macro ~S cannot be called with ~S args." DEFSYNONYM %PUT QUOTE (QUOTE SYNONYM))
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(CALL LENGTH 1)
(MOVEM O1 -3 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPN O1 4)
(MOVE O1 -4 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 -4 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 O2 -2 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 0 Q)
(MOVE O3 (CONSTANT 5))
(CALL LIST 4)
(LABEL 5)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE DEFSYNONYM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (NEW OLD)))
(%PUT (QUOTE DEFSYNONYM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE DEFSYNONYM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
#_(LAP #0_MACEX-XFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVEI N 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE MACEX-XFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE MACEX-XFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE MACEX-XFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LISP::*MACROEXPANSION*) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE MACEX-XFORM) (GET (QUOTE LISP::*MACROEXPANSION*) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_SETQ-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(N 2 %PASS% 1 "Odd number of args to SETQ." PROGN SETQ)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O1 O5)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (SPECIAL 0))
(CALL ZEROP 1)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O1 O5)
(CALL = 2)
(JUMPE O1 5)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL TEST-VARNAME 1)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O3 (CONSTANT 3))
(MOVE O1 (CONSTANT 3))
(MOVE O2 O5)
(CALL BOOLE 3)
(CALL ZEROP 1)
(JUMPN O1 6)
(MOVE O1 (CONSTANT 4))
(CALL CLC-ERROR 1)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVEM NIL -2 Q)
(LABEL 12) (SKIPE NIL -3 Q)
(JRST 13)
(MOVE O1 -2 Q)
(CALL NREVERSE 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 5))
(CALL CONS 2)
(JRST 8)
(LABEL 13) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 O5)
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O2 -2 Q)
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(JRST 12)
(LABEL 8)
(LABEL 7)
(LABEL 3) (UNBIND 1)
(SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE SETQ-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE SETQ-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE SETQ-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SETQ) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE SETQ-TRANSFORM) (GET (QUOTE SETQ) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_PSETQ-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(N 2 SETQ 1 "Odd number of args to PSETQ." %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 O5)
(CALL LENGTH 1)
(MOVEM O1 -2 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 (SPECIAL 0))
(CALL ZEROP 1)
(JUMPE O1 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O1 O5)
(CALL = 2)
(JUMPE O1 5)
(MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 O5)
(CALL LIST 3)
(JRST 3)
(LABEL 5) (MOVE O5 (SPECIAL 0))
(MOVEM O5 0 Q)
(MOVE O3 (CONSTANT 3))
(MOVE O1 (CONSTANT 3))
(MOVE O2 O5)
(CALL BOOLE 3)
(CALL ZEROP 1)
(JUMPN O1 6)
(MOVE O1 (CONSTANT 4))
(CALL CLC-ERROR 1)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O1 (CONSTANT 5))
(MOVEI N 1)
(LABEL 7)
(LABEL 3) (UNBIND 1)
(SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE PSETQ-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE PSETQ-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE PSETQ-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PSETQ) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE PSETQ-TRANSFORM) (GET (QUOTE PSETQ) (QUOTE CLC-TRANSFORMS))))
(DEFSYNONYM NULL NOT)
#_(LAP #0_NOT-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((QUOTE NIL) T (QUOTE T) %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(SKIPN NIL 0 Q)
(JRST1 5)
(MOVE O2 (CONSTANT 0))
(MOVE O1 0 Q)
(CALL EQUAL 2)
(SKIPN NIL O1)
(LABEL 5) (JRST 4)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 1))
(CAMN O2 0 Q)
(JRST1 7)
(MOVE O2 (CONSTANT 2))
(MOVE O1 0 Q)
(CALL EQUAL 2)
(SKIPN NIL O1)
(LABEL 7) (JRST 6)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 8)
(MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(LABEL 8)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE NOT-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE NOT-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE NOT-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NOT) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE NOT-TRANSFORM) (GET (QUOTE NOT) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_EQ-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_((QUOTE NIL) NOT %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(SKIPN NIL -1 Q)
(JRST1 5)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -1 Q)
(CALL EQUAL 2)
(SKIPN NIL O1)
(LABEL 5) (JRST 4)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 4) (SKIPN NIL 0 Q)
(JRST1 7)
(MOVE O2 (CONSTANT 0))
(MOVE O1 0 Q)
(CALL EQUAL 2)
(SKIPN NIL O1)
(LABEL 7) (JRST 6)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 8)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 8)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE EQ-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE EQ-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE EQ-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EQ) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE EQ-TRANSFORM) (GET (QUOTE EQ) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_EQL-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(EQ %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(CALL FIXNUMP 1)
(JUMPE O1 4)
(MOVE O3 0 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -1 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(CALL FIXNUMP 1)
(JUMPE O1 5)
(MOVE O3 0 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -1 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 5) (MOVE O1 -1 Q)
(CALL NUMBERP 1)
(JUMPE O1 6)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O1 0 Q)
(CALL NUMBERP 1)
(JUMPE O1 7)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 3)
(LABEL 7) (MOVE O1 -1 Q)
(CALL CONSTANTP 1)
(JUMPN1 O1 9)
(MOVE O1 0 Q)
(CALL CONSTANTP 1)
(SKIPN NIL O1)
(LABEL 9) (JRST 8)
(MOVE O3 0 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -1 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 8) (SKIPA)
(JRST 10)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(LABEL 10)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE EQL-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE EQL-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE EQL-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EQL) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE EQL-TRANSFORM) (GET (QUOTE EQL) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_=-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 %PASS% ZEROP)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(CALL LENGTH 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPN O1 4)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -2 Q)
(CALL NUMBERP 1)
(JUMPE O1 6)
(MOVE O1 -2 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 6) (JRST 5)
(MOVE O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (MOVE O1 -1 Q)
(MOVE O1 0 O1)
(CALL NUMBERP 1)
(JUMPE O1 9)
(MOVE O1 -1 Q)
(MOVE O1 0 O1)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 9) (JRST 8)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(JRST 3)
(LABEL 8) (SKIPA)
(JRST 11)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(LABEL 11)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE =-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE =-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE =-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE =) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE =-TRANSFORM) (GET (QUOTE =) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_RETURN-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(RETURN-FROM)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVEM NIL 0 Q)
(LABEL 5)
(LABEL 3) (MOVE O3 0 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 NIL)
(CALL LIST 3)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE RETURN-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE RETURN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE RETURN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE RETURN) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE RETURN-TRANSFORM) (GET (QUOTE RETURN) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_PROG-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LET DECLARE BLOCK TAGBODY)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(CALL PARSE-BODY2 1)
(MOVEM O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 3))
(CALL CONS 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 NIL)
(CALL LIST 3)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -5 Q)
(MOVE O3 0 Q)
(CALL LIST 4)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE PROG-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE PROG-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE PROG-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PROG) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE PROG-TRANSFORM) (GET (QUOTE PROG) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_PROG*-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LET* DECLARE BLOCK TAGBODY)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(CALL PARSE-BODY2 1)
(MOVEM O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 3))
(CALL CONS 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 NIL)
(CALL LIST 3)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -5 Q)
(MOVE O3 0 Q)
(CALL LIST 4)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE PROG*-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE PROG*-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE PROG*-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PROG*) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE PROG*-TRANSFORM) (GET (QUOTE PROG*) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_DEFUN-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(COMPILER-LET (*VERBOSE* T) *INNER-FUNCTION-NAME* QUOTE %PUT (QUOTE LISP::%FUN-DOCUMENTATION) REMPROP ((QUOTE LISP::MACRO-IN-COMPILER)) SETF SYMBOL-FUNCTION FUNCTION LAMBDA DECLARE BLOCK)
(CODE-START)
(LABEL 1) (ADDI Q 14)
(MOVEM O1 -13 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -12 Q)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -11 Q)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(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 O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVEM O1 -5 Q)
(SKIPN NIL -7 Q)
(JRST 3)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVEM O1 -3 Q)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 -3 Q)
(MOVE O3 (CONSTANT 5))
(CALL LIST 4)
(CALL LIST 1)
(MOVEM O1 -4 Q)
(JRST 4)
(LABEL 3) (MOVEM NIL -4 Q)
(LABEL 4) (MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O3 (CONSTANT 7))
(MOVE O1 (CONSTANT 6))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVEM O1 -3 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O2 -8 Q)
(MOVE O1 (CONSTANT 12))
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O3 -6 Q)
(MOVE O1 (CONSTANT 13))
(MOVE O2 -12 Q)
(CALL LIST* 3)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 -11 Q)
(MOVE O3 0 Q)
(CALL LIST 4)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O2 -12 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 -3 Q)
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL APPEND 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -5 Q)
(CALL LIST* 3)
(SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE DEFUN-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE DEFUN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE DEFUN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DEFUN) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE DEFUN-TRANSFORM) (GET (QUOTE DEFUN) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_EVAL-WHEN-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(QUOTE "Ill-formed EVAL-WHEN situation list: ~S. ~
Ignoring its contents." COMPILE LOAD *EVAL-WHEN-COMPILE* *EVAL-WHEN-LOAD* EVAL PROGN)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPN1 O1 5)
(MOVE O1 -5 Q)
(MOVE O2 0 O1)
(CAME O2 (CONSTANT 0))
(LABEL 5) (JRST 4)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 1))
(CALL CLC-ERROR 2)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 6)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 2))
(CALL MEMQ 2)
(MOVEM O1 -3 Q)
(MOVE O2 -5 Q)
(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 O5 -4 Q)
(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)
(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) (MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 6))
(CALL MEMQ 2)
(JUMPE O1 14)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 7))
(CALL CONS 2)
(JRST 15)
(LABEL 14) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 15) (UNBIND 2)
(LABEL 6)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE EVAL-WHEN-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE EVAL-WHEN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE EVAL-WHEN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EVAL-WHEN) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE EVAL-WHEN-TRANSFORM) (GET (QUOTE EVAL-WHEN) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_FUNCALL-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(FUNCTION QUOTE *FENV* %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 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)
(CALL CONSP 1)
(JUMPE O1 5)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(CALL CONSP 1)
(JUMPE O1 5)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(JUMPE O1 5)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(CAMN O2 0 Q)
(JRST1 7)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 0 Q)
(JRST 8)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (SPECIAL 2))
(MOVE O1 O5)
(CALL ASSQ 2)
(SKIPE NIL O1)
(LABEL 8)
(LABEL 7)
(LABEL 5) (JRST 3)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 O5)
(CALL CONS 2)
(JRST 4)
(LABEL 3) (MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(LABEL 4) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE FUNCALL-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE FUNCALL-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE FUNCALL-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FUNCALL) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE FUNCALL-TRANSFORM) (GET (QUOTE FUNCALL) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_IDENTITY-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(VALUES)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE IDENTITY-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE IDENTITY-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE IDENTITY-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE IDENTITY) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE IDENTITY-TRANSFORM) (GET (QUOTE IDENTITY) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CAAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CAAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CAAR-TRANSFORM) (GET (QUOTE CAAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CADR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CADR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CADR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CADR-TRANSFORM) (GET (QUOTE CADR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDAR-TRANSFORM) (GET (QUOTE CDAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDDR-TRANSFORM) (GET (QUOTE CDDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CAAAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CAAAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CAAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CAAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAAAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CAAAR-TRANSFORM) (GET (QUOTE CAAAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CAADR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CAADR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CAADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CAADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAADR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CAADR-TRANSFORM) (GET (QUOTE CAADR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CADAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CADAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CADAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CADAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CADAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CADAR-TRANSFORM) (GET (QUOTE CADAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CADDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CADDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CADDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CADDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CADDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CADDR-TRANSFORM) (GET (QUOTE CADDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDAAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDAAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDAAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDAAR-TRANSFORM) (GET (QUOTE CDAAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDADR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDADR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDADR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDADR-TRANSFORM) (GET (QUOTE CDADR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDDAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDDAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDDAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDDAR-TRANSFORM) (GET (QUOTE CDDAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDDDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDDDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDDDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDDDR-TRANSFORM) (GET (QUOTE CDDDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CAAAAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CAAAAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CAAAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CAAAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAAAAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CAAAAR-TRANSFORM) (GET (QUOTE CAAAAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CAAADR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CAAADR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CAAADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CAAADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAAADR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CAAADR-TRANSFORM) (GET (QUOTE CAAADR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CAADAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CAADAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CAADAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CAADAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAADAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CAADAR-TRANSFORM) (GET (QUOTE CAADAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CAADDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CAADDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CAADDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CAADDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CAADDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CAADDR-TRANSFORM) (GET (QUOTE CAADDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CADAAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CADAAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CADAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CADAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CADAAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CADAAR-TRANSFORM) (GET (QUOTE CADAAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CADADR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CADADR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CADADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CADADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CADADR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CADADR-TRANSFORM) (GET (QUOTE CADADR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CADDAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CADDAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CADDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CADDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CADDAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CADDAR-TRANSFORM) (GET (QUOTE CADDAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CADDDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CADDDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CADDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CADDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CADDDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CADDDR-TRANSFORM) (GET (QUOTE CADDDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDAAAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDAAAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDAAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDAAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDAAAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDAAAR-TRANSFORM) (GET (QUOTE CDAAAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDAADR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDAADR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDAADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDAADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDAADR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDAADR-TRANSFORM) (GET (QUOTE CDAADR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDADAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDADAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDADAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDADAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDADAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDADAR-TRANSFORM) (GET (QUOTE CDADAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDADDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDADDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDADDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDADDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDADDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDADDR-TRANSFORM) (GET (QUOTE CDADDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDDAAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDDAAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDDAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDDAAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDDAAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDDAAR-TRANSFORM) (GET (QUOTE CDDAAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDDADR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDDADR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDDADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDDADR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDDADR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDDADR-TRANSFORM) (GET (QUOTE CDDADR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDDDAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDDDAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDDDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDDDAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDDDAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDDDAR-TRANSFORM) (GET (QUOTE CDDDAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CDDDDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE CDDDDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CDDDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CDDDDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CDDDDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CDDDDR-TRANSFORM) (GET (QUOTE CDDDDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_FIRST-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE FIRST-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE FIRST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE FIRST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FIRST) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE FIRST-TRANSFORM) (GET (QUOTE FIRST) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_SECOND-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CADR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE SECOND-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE SECOND-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE SECOND-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SECOND) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE SECOND-TRANSFORM) (GET (QUOTE SECOND) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_THIRD-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CADDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE THIRD-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE THIRD-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE THIRD-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE THIRD) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE THIRD-TRANSFORM) (GET (QUOTE THIRD) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_FOURTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CADDDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE FOURTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE FOURTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE FOURTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FOURTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE FOURTH-TRANSFORM) (GET (QUOTE FOURTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_FIFTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDDDDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE FIFTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE FIFTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE FIFTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FIFTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE FIFTH-TRANSFORM) (GET (QUOTE FIFTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_SIXTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CADR CDDDDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE SIXTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE SIXTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE SIXTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SIXTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE SIXTH-TRANSFORM) (GET (QUOTE SIXTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_SEVENTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CADDR CDDDDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE SEVENTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE SEVENTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE SEVENTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SEVENTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE SEVENTH-TRANSFORM) (GET (QUOTE SEVENTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_EIGHTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CADDDR CDDDDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE EIGHTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE EIGHTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE EIGHTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EIGHTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE EIGHTH-TRANSFORM) (GET (QUOTE EIGHTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_NINTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CAR CDDDDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE NINTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE NINTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE NINTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NINTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE NINTH-TRANSFORM) (GET (QUOTE NINTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_TENTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CADR CDDDDR)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE TENTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE TENTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE TENTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE TENTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE TENTH-TRANSFORM) (GET (QUOTE TENTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_NTH-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(N CAR NTHCDR)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 0 Q)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 O5)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(UNBIND 1)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE NTH-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE NTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE NTH-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NTH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE NTH-TRANSFORM) (GET (QUOTE NTH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_NTHCDR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(N -1 *NTHCDR-OPEN-CODE-LIMIT* CDR %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 (SPECIAL 0))
(CALL INTEGERP 1)
(JUMPE O1 5)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O3 (SPECIAL 2))
(MOVE O1 (CONSTANT 1))
(MOVE O2 O5)
(CALL < 3)
(SKIPN NIL O1)
(LABEL 5) (JRST 3)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -3 Q)
(MOVE O5 -4 Q)
(MOVEM O5 -2 Q)
(LABEL 11) (MOVE O1 -3 Q)
(CALL ZEROP 1)
(JUMPE O1 12)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 7)
(LABEL 12) (MOVE O1 -3 Q)
(CALL 1- 1)
(MOVEM O1 -1 Q)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 11)
(LABEL 7) (JRST 4)
(LABEL 3) (MOVE O1 (CONSTANT 4))
(MOVEI N 1)
(LABEL 4) (UNBIND 1)
(SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE NTHCDR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE NTHCDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE NTHCDR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NTHCDR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE NTHCDR-TRANSFORM) (GET (QUOTE NTHCDR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_PLUSP-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(> (0))
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O3 (CONSTANT 1))
(MOVE O1 (CONSTANT 0))
(MOVE O2 O5)
(CALL LIST* 3)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE PLUSP-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE PLUSP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE PLUSP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE PLUSP) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE PLUSP-TRANSFORM) (GET (QUOTE PLUSP) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_MINUSP-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(< (0))
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O3 (CONSTANT 1))
(MOVE O1 (CONSTANT 0))
(MOVE O2 O5)
(CALL LIST* 3)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE MINUSP-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE MINUSP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE MINUSP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MINUSP) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE MINUSP-TRANSFORM) (GET (QUOTE MINUSP) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_ODDP-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(NOT ZEROP BOOLE 1 (1))
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 (CONSTANT 4))
(MOVE O1 (CONSTANT 2))
(MOVE O2 (CONSTANT 3))
(MOVE O3 O5)
(CALL LIST* 4)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE ODDP-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE ODDP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE ODDP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE ODDP) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE ODDP-TRANSFORM) (GET (QUOTE ODDP) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_EVENP-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(ZEROP BOOLE 1 (1))
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 (CONSTANT 3))
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(MOVE O3 O5)
(CALL LIST* 4)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE EVENP-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE EVENP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE EVENP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EVENP) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE EVENP-TRANSFORM) (GET (QUOTE EVENP) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_>=-TWO-ARG EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 NOT < %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(CALL LENGTH 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPE O1 3)
(MOVE O1 -1 Q)
(MOVE O3 0 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 4)
(LABEL 3) (MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(LABEL 4) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE >=-TWO-ARG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE >=-TWO-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE >=-TWO-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE >=) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE >=-TWO-ARG) (GET (QUOTE >=) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_<=-TWO-ARG EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 NOT > %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(CALL LENGTH 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPE O1 3)
(MOVE O1 -1 Q)
(MOVE O3 0 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 4)
(LABEL 3) (MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(LABEL 4) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE <=-TWO-ARG) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE <=-TWO-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE <=-TWO-ARG) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE <=) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE <=-TWO-ARG) (GET (QUOTE <=) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_/=-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T NOT = %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(SKIPE NIL 0 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 0 Q)
(MOVE O3 0 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(LABEL 6)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE /=-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE /=-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE /=-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE /=) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE /=-TRANSFORM) (GET (QUOTE /=) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_MAX-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(VALUES #:INTERNAL-VARIABLE-6 #:INTERNAL-VARIABLE-7 LET IF > %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(SKIPE NIL -4 Q)
(JRST 4)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(JRST 3)
(LABEL 4) (MOVE O1 -4 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 -4 Q)
(MOVE O1 0 O1)
(CALL TRIVIALP 1)
(JUMPE O1 6)
(MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(JRST 7)
(LABEL 6) (MOVE O5 (CONSTANT 1))
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O1 -5 Q)
(CALL TRIVIALP 1)
(JUMPE O1 8)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(JRST 9)
(LABEL 8) (MOVE O5 (CONSTANT 2))
(MOVEM O5 -2 Q)
(LABEL 9) (MOVE O1 -4 Q)
(MOVE O2 0 O1)
(CAMN O2 -3 Q)
(JRST 10)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(CALL LIST 1)
(MOVEM O1 -1 Q)
(JRST 11)
(LABEL 10) (MOVEM NIL -1 Q)
(LABEL 11) (MOVE O2 -5 Q)
(CAMN O2 -2 Q)
(JRST 12)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL LIST 1)
(MOVE O2 O1)
(JRST 13)
(LABEL 12) (MOVE O2 NIL)
(LABEL 13) (MOVE O1 -1 Q)
(CALL NCONC 2)
(MOVEM O1 -1 Q)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O4 -3 Q)
(MOVE O1 (CONSTANT 4))
(MOVE O2 0 Q)
(MOVE O3 -2 Q)
(CALL LIST 4)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -1 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 14)
(MOVE O1 (CONSTANT 6))
(MOVEI N 1)
(LABEL 14)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE MAX-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE MAX-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE MAX-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MAX) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE MAX-TRANSFORM) (GET (QUOTE MAX) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_MIN-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(VALUES #:INTERNAL-VARIABLE-6 #:INTERNAL-VARIABLE-7 LET IF < %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(SKIPE NIL -4 Q)
(JRST 4)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(JRST 3)
(LABEL 4) (MOVE O1 -4 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 -4 Q)
(MOVE O1 0 O1)
(CALL TRIVIALP 1)
(JUMPE O1 6)
(MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(JRST 7)
(LABEL 6) (MOVE O5 (CONSTANT 1))
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O1 -5 Q)
(CALL TRIVIALP 1)
(JUMPE O1 8)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(JRST 9)
(LABEL 8) (MOVE O5 (CONSTANT 2))
(MOVEM O5 -2 Q)
(LABEL 9) (MOVE O1 -4 Q)
(MOVE O2 0 O1)
(CAMN O2 -3 Q)
(JRST 10)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(CALL LIST 1)
(MOVEM O1 -1 Q)
(JRST 11)
(LABEL 10) (MOVEM NIL -1 Q)
(LABEL 11) (MOVE O2 -5 Q)
(CAMN O2 -2 Q)
(JRST 12)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(CALL LIST 1)
(MOVE O2 O1)
(JRST 13)
(LABEL 12) (MOVE O2 NIL)
(LABEL 13) (MOVE O1 -1 Q)
(CALL NCONC 2)
(MOVEM O1 -1 Q)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -2 Q)
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O4 -3 Q)
(MOVE O1 (CONSTANT 4))
(MOVE O2 0 Q)
(MOVE O3 -2 Q)
(CALL LIST 4)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -1 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 14)
(MOVE O1 (CONSTANT 6))
(MOVEI N 1)
(LABEL 14)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE MIN-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE MIN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE MIN-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MIN) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE MIN-TRANSFORM) (GET (QUOTE MIN) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_MULTI-ARITH EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(4 %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 0))
(CALL < 2)
(JUMPE O1 3)
(MOVE O1 (CONSTANT 1))
(MOVEI N 1)
(JRST 4)
(LABEL 3) (MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(LABEL 9) (MOVE O1 -4 Q)
(CALL LENGTH 1)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(CALL < 2)
(JUMPE O1 10)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 5)
(LABEL 10) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 -3 Q)
(MOVE O2 O5)
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O3 1 O1)
(MOVE O1 -3 Q)
(MOVE O2 -1 Q)
(CALL LIST* 3)
(MOVEM O1 -4 Q)
(JRST 9)
(LABEL 5)
(LABEL 4) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE MULTI-ARITH) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE MULTI-ARITH) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE MULTI-ARITH) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE +) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE -) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE *) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE /) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE LOGIOR) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE LOGXOR) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE LOGAND) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE MULTI-ARITH) (GET (QUOTE LOGEQV) (QUOTE CLC-TRANSFORMS)))
#_(LAP #0_+-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0 VALUES %PASS% 1 1+)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -1 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 6)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 7)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 7) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 0 Q)
(JRST 8)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(JRST 3)
(LABEL 8) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 9)
(MOVE O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 9) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 0 Q)
(JRST 10)
(MOVE O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(JRST 3)
(LABEL 10) (SKIPA)
(JRST 11)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 11)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE +-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE +-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE +-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE +) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE +-TRANSFORM) (GET (QUOTE +) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_--TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(%PASS% 0 VALUES 1 1-)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 0 Q)
(JRST 5)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 0 Q)
(JRST 6)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(LABEL 7)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE --TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE --TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE --TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE -) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE --TRANSFORM) (GET (QUOTE -) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_*-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(1 VALUES %PASS% 0)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -1 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 6)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 7)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 7) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 8)
(MOVE O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 8) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(CAMN O2 0 Q)
(JRST1 10)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 0 Q)
(LABEL 10) (JRST 9)
(MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(JRST 3)
(LABEL 9) (SKIPA)
(JRST 11)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 11)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE *-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE *-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE *-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE *) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE *-TRANSFORM) (GET (QUOTE *) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_/-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(/ 1 %PASS% 0 "Dividing by constant 0." VALUES)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(CALL LIST 3)
(JRST 3)
(LABEL 4) (MOVE O1 -1 Q)
(SKIPN NIL 1 O1)
(JRST 5)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JRST 3)
(LABEL 5) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 0 Q)
(JRST 6)
(MOVE O1 (CONSTANT 4))
(CALL CLC-WARNING 1)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JRST 3)
(LABEL 6) (MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 0 Q)
(JRST 7)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(JRST 3)
(LABEL 7) (SKIPA)
(JRST 8)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 8)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE /-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE /-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE /-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE /) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE /-TRANSFORM) (GET (QUOTE /) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_SECOND-ARG-IS-1 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(%PASS% (1))
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O3 (CONSTANT 1))
(MOVE O1 -1 Q)
(MOVE O2 O5)
(CALL LIST* 3)
(LABEL 5)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE SECOND-ARG-IS-1) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (FORM)))
(%PUT (QUOTE SECOND-ARG-IS-1) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE SECOND-ARG-IS-1) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE TRUNCATE) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE FLOOR) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE CEILING) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE ROUND) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE FTRUNCATE) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE FFLOOR) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE FCEILING) (QUOTE CLC-TRANSFORMS)))
(PUSH (QUOTE SECOND-ARG-IS-1) (GET (QUOTE FROUND) (QUOTE CLC-TRANSFORMS)))
#_(LAP #0_LOGIOR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0 VALUES %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(SKIPE NIL 0 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 0 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 6)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE LOGIOR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGIOR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGIOR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGIOR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGIOR-TRANSFORM) (GET (QUOTE LOGIOR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGXOR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0 VALUES %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(SKIPE NIL 0 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 0 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 6)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE LOGXOR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGXOR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGXOR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGXOR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGXOR-TRANSFORM) (GET (QUOTE LOGXOR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGAND-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(-1 VALUES %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(SKIPE NIL 0 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 0 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 6)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE LOGAND-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGAND-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGAND-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGAND) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGAND-TRANSFORM) (GET (QUOTE LOGAND) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGEQV-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(-1 VALUES LOGNOT BOOLE 6 %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 -1 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(SKIPE NIL 1 O1)
(JRST 6)
(MOVE O1 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVE O4 0 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 (CONSTANT 4))
(MOVE O3 O5)
(CALL LIST 4)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O1 (CONSTANT 5))
(MOVEI N 1)
(LABEL 7)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGEQV-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGEQV-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGEQV-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGEQV) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGEQV-TRANSFORM) (GET (QUOTE LOGEQV) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGNAND-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(BOOLE 14)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 O5)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(MOVE O3 -1 Q)
(CALL LIST 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGNAND-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGNAND-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGNAND-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGNAND) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGNAND-TRANSFORM) (GET (QUOTE LOGNAND) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGNOR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(BOOLE 8)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 O5)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(MOVE O3 -1 Q)
(CALL LIST 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGNOR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGNOR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGNOR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGNOR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGNOR-TRANSFORM) (GET (QUOTE LOGNOR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGANDC1-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(BOOLE 2)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 O5)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(MOVE O3 -1 Q)
(CALL LIST 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGANDC1-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGANDC1-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGANDC1-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGANDC1) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGANDC1-TRANSFORM) (GET (QUOTE LOGANDC1) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGANDC2-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(BOOLE 4)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 O5)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(MOVE O3 -1 Q)
(CALL LIST 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGANDC2-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGANDC2-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGANDC2-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGANDC2) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGANDC2-TRANSFORM) (GET (QUOTE LOGANDC2) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGORC1-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(BOOLE 11)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 O5)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(MOVE O3 -1 Q)
(CALL LIST 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGORC1-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGORC1-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGORC1-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGORC1) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGORC1-TRANSFORM) (GET (QUOTE LOGORC1) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGORC2-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(BOOLE 13)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 O5)
(MOVE O1 (CONSTANT 0))
(MOVE O2 (CONSTANT 1))
(MOVE O3 -1 Q)
(CALL LIST 4)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGORC2-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGORC2-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGORC2-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGORC2) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGORC2-TRANSFORM) (GET (QUOTE LOGORC2) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGTEST-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(NOT ZEROP BOOLE 1)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O4 O5)
(MOVE O1 (CONSTANT 2))
(MOVE O2 (CONSTANT 3))
(MOVE O3 -1 Q)
(CALL LIST 4)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LOGTEST-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGTEST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGTEST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGTEST) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGTEST-TRANSFORM) (GET (QUOTE LOGTEST) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_LOGBITP-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(NOT ZEROP LDB BYTE 1)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O3 -2 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 (CONSTANT 4))
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 0 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE LOGBITP-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LOGBITP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LOGBITP-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LOGBITP) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LOGBITP-TRANSFORM) (GET (QUOTE LOGBITP) (QUOTE CLC-TRANSFORMS))))
(DEFSYNONYM BYTE CONS)
(DEFSYNONYM BYTE-SIZE CAR)
(DEFSYNONYM BYTE-POSITION CDR)
#_(LAP #0_LDB-TEST-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(NOT ZEROP LDB)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O3 O5)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL LIST 2)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LDB-TEST-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE LDB-TEST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE LDB-TEST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LDB-TEST) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE LDB-TEST-TRANSFORM) (GET (QUOTE LDB-TEST) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_AREF-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SIMPLE-VECTOR SVREF SIMPLE-STRING SCHAR SIMPLE-BIT-VECTOR SBIT SIMPLE-ARRAY LISP::%SP-SAREF1 %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL 1 O1)
(JRST 3)
(MOVE O1 -3 Q)
(CALL FIND-TYPE 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 6)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -3 Q)
(CALL LIST 3)
(JRST 5)
(LABEL 6) (MOVE O2 (CONSTANT 2))
(CAME O2 0 Q)
(JRST 7)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -3 Q)
(CALL LIST 3)
(JRST 5)
(LABEL 7) (MOVE O2 (CONSTANT 4))
(CAME O2 0 Q)
(JRST 8)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -3 Q)
(CALL LIST 3)
(JRST 5)
(LABEL 8) (MOVE O2 (CONSTANT 6))
(CAME O2 0 Q)
(JRST 9)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -3 Q)
(CALL LIST 3)
(JRST 5)
(LABEL 9) (SKIPA)
(JRST 10)
(MOVE O1 (CONSTANT 8))
(MOVEI N 1)
(LABEL 10)
(LABEL 5) (JRST 4)
(LABEL 3) (MOVE O1 (CONSTANT 8))
(MOVEI N 1)
(LABEL 4) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE AREF-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE AREF-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE AREF-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE AREF) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE AREF-TRANSFORM) (GET (QUOTE AREF) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CHAR-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SIMPLE-STRING SCHAR AREF)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL FIND-TYPE 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 3)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -2 Q)
(CALL LIST 3)
(JRST 4)
(LABEL 3) (MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -2 Q)
(CALL LIST 3)
(LABEL 4) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE CHAR-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CHAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CHAR-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CHAR) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CHAR-TRANSFORM) (GET (QUOTE CHAR) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_BIT-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SIMPLE-BIT-VECTOR SBIT AREF)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL FIND-TYPE 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 3)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -2 Q)
(CALL LIST 3)
(JRST 4)
(LABEL 3) (MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -2 Q)
(CALL LIST 3)
(LABEL 4) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE BIT-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE BIT-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE BIT-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE BIT) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE BIT-TRANSFORM) (GET (QUOTE BIT) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_%ASET-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SIMPLE-VECTOR %SVSET SIMPLE-STRING %SCHARSET SIMPLE-BIT-VECTOR %SBITSET SIMPLE-ARRAY LISP::%SP-SASET1 %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(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 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 1 O1)
(MOVEM O5 -1 Q)
(SKIPE NIL -1 Q)
(JRST 3)
(MOVE O1 -4 Q)
(CALL FIND-TYPE 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 6)
(MOVE O4 -2 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -4 Q)
(MOVE O3 -3 Q)
(CALL LIST 4)
(JRST 5)
(LABEL 6) (MOVE O2 (CONSTANT 2))
(CAME O2 0 Q)
(JRST 7)
(MOVE O4 -2 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -4 Q)
(MOVE O3 -3 Q)
(CALL LIST 4)
(JRST 5)
(LABEL 7) (MOVE O2 (CONSTANT 4))
(CAME O2 0 Q)
(JRST 8)
(MOVE O4 -2 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -4 Q)
(MOVE O3 -3 Q)
(CALL LIST 4)
(JRST 5)
(LABEL 8) (MOVE O2 (CONSTANT 6))
(CAME O2 0 Q)
(JRST 9)
(MOVE O4 -2 Q)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -4 Q)
(MOVE O3 -3 Q)
(CALL LIST 4)
(JRST 5)
(LABEL 9) (SKIPA)
(JRST 10)
(MOVE O1 (CONSTANT 8))
(MOVEI N 1)
(LABEL 10)
(LABEL 5) (JRST 4)
(LABEL 3) (MOVE O1 (CONSTANT 8))
(MOVEI N 1)
(LABEL 4) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE %ASET-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE %ASET-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE %ASET-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE %ASET) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE %ASET-TRANSFORM) (GET (QUOTE %ASET) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_%CHARSET-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SIMPLE-STRING %SCHARSET %ASET)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(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 O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(CALL FIND-TYPE 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 3)
(MOVE O4 -1 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -3 Q)
(MOVE O3 -2 Q)
(CALL LIST 4)
(JRST 4)
(LABEL 3) (MOVE O4 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -3 Q)
(MOVE O3 -2 Q)
(CALL LIST 4)
(LABEL 4) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE %CHARSET-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE %CHARSET-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE %CHARSET-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE %CHARSET) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE %CHARSET-TRANSFORM) (GET (QUOTE %CHARSET) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_%BITSET-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(SIMPLE-BIT-VECTOR %SBITSET %ASET)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(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 O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(CALL FIND-TYPE 1)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 3)
(MOVE O4 -1 Q)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -3 Q)
(MOVE O3 -2 Q)
(CALL LIST 4)
(JRST 4)
(LABEL 3) (MOVE O4 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -3 Q)
(MOVE O3 -2 Q)
(CALL LIST 4)
(LABEL 4) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE %BITSET-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE %BITSET-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE %BITSET-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE %BITSET) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE %BITSET-TRANSFORM) (GET (QUOTE %BITSET) (QUOTE CLC-TRANSFORMS))))
(DEFSYNONYM SVREF LISP::%SP-SVREF)
(DEFSYNONYM LISP::%SVSET LISP::%SP-SVSET)
#_(LAP #0_CHAR=-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T EQ %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(SKIPE NIL 0 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 0 Q)
(MOVE O3 0 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 -1 Q)
(CALL LIST 3)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(LABEL 6)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CHAR=-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CHAR=-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CHAR=-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CHAR=) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CHAR=-TRANSFORM) (GET (QUOTE CHAR=) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_CHAR/=-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T NOT EQ %PASS%)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(SKIPE NIL 0 Q)
(JRST 4)
(MOVE O1 (CONSTANT 0))
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O1 0 Q)
(SKIPE NIL 1 O1)
(JRST 5)
(MOVE O1 0 Q)
(MOVE O3 0 O1)
(MOVE O1 (CONSTANT 2))
(MOVE O2 -1 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(JRST 3)
(LABEL 5) (SKIPA)
(JRST 6)
(MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(LABEL 6)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CHAR/=-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE CHAR/=-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE CHAR/=-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CHAR/=) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE CHAR/=-TRANSFORM) (GET (QUOTE CHAR/=) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_FORMAT-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T STREAM 0 *CURRENTLY-FREE-INTERNAL-VARIABLES* LET (NIL) #\~ :START "FORMAT control string ends in a ~~: ~S" %PASS% WRITE-STRING (#\b #\B) :TEST EQL ((*PRINT-BASE* 2)) PRINC (#\o #\O) ((*PRINT-BASE* 8)) (#\d #\D) ((*PRINT-BASE* 10)) (#\x #\X) ((*PRINT-BASE* 16)) (#\a #\A) (#\s #\S) PRIN1 #\% TERPRI #\& FRESH-LINE #\| WRITE-CHAR #\PAGE #\NEWLINE WHITESPACE-CHAR-P 2)
(CODE-START)
(LABEL 1) (ADDI Q 18)
(MOVEM O1 -17 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -16 Q)
(MOVE O1 -17 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -15 Q)
(MOVE O1 -17 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -14 Q)
(MOVE O1 -15 Q)
(CALL SIMPLE-STRING-P 1)
(JUMPE O1 5)
(MOVE O1 -16 Q)
(CALL TRIVIALP 1)
(JUMPE O1 5)
(MOVE O2 (CONSTANT 0))
(CAMN O2 -16 Q)
(JRST1 7)
(MOVE O1 -16 Q)
(CALL FIND-TYPE 1)
(MOVEM O1 -13 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -13 Q)
(LABEL 7)
(LABEL 5) (JRST 3)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVE O1 -15 Q)
(CALL LENGTH 1)
(MOVEM O1 -10 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(SKIPN NIL (SPECIAL 3))
(JRST 9)
(MOVE O1 (SPECIAL 3))
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 (SPECIAL 3))
(MOVE O1 1 O1)
(MOVEM O1 (SPECIAL 3))
(MOVEM O5 -8 Q)
(JRST 10)
(LABEL 9) (CALL REALLY-NEW-INTERNAL-VARIABLE 0)
(MOVEM O1 -8 Q)
(LABEL 10) (MOVE O2 (CONSTANT 0))
(CAME O2 -16 Q)
(JRST 11)
(MOVEM NIL -7 Q)
(JRST 12)
(LABEL 11) (MOVE O1 -8 Q)
(CALL LIST 1)
(MOVEM O1 -7 Q)
(LABEL 12)
(LABEL 16) (MOVE O2 -10 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPE O1 17)
(MOVE O2 (CONSTANT 0))
(CAME O2 -16 Q)
(JRST 19)
(MOVEM NIL -6 Q)
(JRST 20)
(LABEL 19) (MOVE O2 -16 Q)
(MOVE O1 -8 Q)
(CALL LIST 2)
(CALL LIST 1)
(MOVEM O1 -6 Q)
(LABEL 20) (MOVE O1 -11 Q)
(CALL NREVERSE 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 5))
(CALL APPEND 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 -6 Q)
(CALL LIST* 3)
(JRST 8)
(LABEL 17) (MOVE O4 -12 Q)
(MOVE O1 (CONSTANT 6))
(MOVE O2 -15 Q)
(MOVE O3 (CONSTANT 7))
(CALL POSITION 4)
(MOVEM O1 -6 Q)
(SKIPN NIL -6 Q)
(JRST 22)
(MOVE O2 -9 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 24)
(MOVE O2 -15 Q)
(MOVE O1 (CONSTANT 8))
(CALL CLC-ERROR 2)
(MOVE O1 (CONSTANT 9))
(MOVEI N 1)
(JRST 8)
(LABEL 24) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL SCHAR 2)
(MOVEM O1 -4 Q)
(MOVE O2 -6 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPN O1 26)
(MOVE O3 -6 Q)
(MOVE O1 -15 Q)
(MOVE O2 -12 Q)
(CALL SUBSEQ 3)
(MOVEM O1 -2 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -2 Q)
(CALL LIST* 3)
(MOVEM O1 -3 Q)
(MOVE O2 -11 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(LABEL 26) (MOVE O5 -4 Q)
(MOVEM O5 -2 Q)
(MOVE O4 (CONSTANT 13))
(MOVE O1 O5)
(MOVE O2 (CONSTANT 11))
(MOVE O3 (CONSTANT 12))
(CALL MEMBER 4)
(JUMPE O1 29)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 O5)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 (CONSTANT 14))
(CALL LIST 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 29) (MOVE O4 (CONSTANT 13))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 16))
(MOVE O3 (CONSTANT 12))
(CALL MEMBER 4)
(JUMPE O1 30)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 O5)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 (CONSTANT 17))
(CALL LIST 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 30) (MOVE O4 (CONSTANT 13))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 18))
(MOVE O3 (CONSTANT 12))
(CALL MEMBER 4)
(JUMPE O1 31)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 O5)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 (CONSTANT 19))
(CALL LIST 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 31) (MOVE O4 (CONSTANT 13))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 20))
(MOVE O3 (CONSTANT 12))
(CALL MEMBER 4)
(JUMPE O1 32)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 O5)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 4))
(MOVE O2 (CONSTANT 21))
(CALL LIST 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 32) (MOVE O4 (CONSTANT 13))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 22))
(MOVE O3 (CONSTANT 12))
(CALL MEMBER 4)
(JUMPE O1 33)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 O5)
(CALL LIST* 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 33) (MOVE O4 (CONSTANT 13))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 23))
(MOVE O3 (CONSTANT 12))
(CALL MEMBER 4)
(JUMPE O1 34)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 24))
(MOVE O2 O5)
(CALL LIST* 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 34) (MOVE O2 (CONSTANT 25))
(CAME O2 -2 Q)
(JRST 35)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 26))
(CALL CONS 2)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 35) (MOVE O2 (CONSTANT 27))
(CAME O2 -2 Q)
(JRST 36)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 28))
(CALL CONS 2)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 36) (MOVE O2 (CONSTANT 29))
(CAME O2 -2 Q)
(JRST 37)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 30))
(MOVE O2 (CONSTANT 31))
(CALL LIST* 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 37) (MOVE O2 (CONSTANT 6))
(CAME O2 -2 Q)
(JRST 38)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 30))
(MOVE O2 (CONSTANT 6))
(CALL LIST* 3)
(MOVEM O1 -3 Q)
(JRST 28)
(LABEL 38) (MOVE O2 (CONSTANT 32))
(CAME O2 -2 Q)
(JRST 39)
(MOVE O2 (CONSTANT 34))
(MOVE O1 -6 Q)
(CALL + 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 33))
(MOVE O2 -15 Q)
(MOVE O3 (CONSTANT 7))
(CALL POSITION-IF-NOT 4)
(MOVEM O1 -1 Q)
(SKIPN NIL -1 Q)
(JRST 40)
(MOVE O2 (CONSTANT 34))
(MOVE O1 -1 Q)
(CALL - 2)
(MOVEM O1 -6 Q)
(MOVEM O1 -3 Q)
(JRST 41)
(LABEL 40) (MOVEM NIL -3 Q)
(LABEL 41) (JRST 28)
(LABEL 39) (SKIPA)
(JRST 42)
(MOVE O1 (CONSTANT 9))
(MOVEI N 1)
(JRST 8)
(LABEL 42)
(LABEL 28) (MOVE O2 -11 Q)
(MOVE O1 -3 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(MOVE O2 (CONSTANT 34))
(MOVE O1 -6 Q)
(CALL + 2)
(MOVEM O1 -12 Q)
(JRST 21)
(LABEL 22) (SKIPA)
(JRST 44)
(MOVE O3 -10 Q)
(MOVE O1 -15 Q)
(MOVE O2 -12 Q)
(CALL SUBSEQ 3)
(MOVEM O1 -4 Q)
(MOVE O3 -7 Q)
(MOVE O1 (CONSTANT 10))
(MOVE O2 -4 Q)
(CALL LIST* 3)
(MOVEM O1 -5 Q)
(MOVE O2 -11 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(MOVE O1 -10 Q)
(MOVEM O1 -12 Q)
(LABEL 44)
(LABEL 21) (JRST 16)
(LABEL 8) (JRST 4)
(LABEL 3) (MOVE O1 (CONSTANT 9))
(MOVEI N 1)
(LABEL 4) (SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE FORMAT-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE FORMAT-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE FORMAT-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FORMAT) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE FORMAT-TRANSFORM) (GET (QUOTE FORMAT) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_WRITE-STRING-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*STANDARD-OUTPUT* :START 0 :END (:END :START) LISP::%SP-WRITE-STRING)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -4 Q)
(LABEL 5)
(LABEL 3) (MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVEM NIL -2 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LISP::FIND-KEYWORD 2)
(MOVEM O1 -2 Q)
(JUMPE O1 8)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(JRST 7)
(LABEL 8) (SKIPA)
(JRST 9)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -1 Q)
(LABEL 9)
(LABEL 7) (MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 3))
(CALL LISP::FIND-KEYWORD 2)
(MOVEM O1 -2 Q)
(JUMPE O1 12)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(JRST 11)
(LABEL 12) (SKIPA)
(JRST 13)
(MOVEM NIL 0 Q)
(LABEL 13)
(LABEL 11) (MOVE O2 (CONSTANT 4))
(MOVE O1 -3 Q)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O5 0 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -1 Q)
(CALL LIST 5)
(SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE WRITE-STRING-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE WRITE-STRING-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE WRITE-STRING-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE WRITE-STRING) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE WRITE-STRING-TRANSFORM) (GET (QUOTE WRITE-STRING) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_WRITE-LINE-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*STANDARD-OUTPUT* :START 0 :END (:END :START) PROGN LISP::%SP-WRITE-STRING TERPRI)
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -5 Q)
(LABEL 5)
(LABEL 3) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVEM NIL -3 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 1))
(CALL LISP::FIND-KEYWORD 2)
(MOVEM O1 -3 Q)
(JUMPE O1 8)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(JRST 7)
(LABEL 8) (SKIPA)
(JRST 9)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -2 Q)
(LABEL 9)
(LABEL 7) (MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 3))
(CALL LISP::FIND-KEYWORD 2)
(MOVEM O1 -3 Q)
(JUMPE O1 12)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(JRST 11)
(LABEL 12) (SKIPA)
(JRST 13)
(MOVEM NIL -1 Q)
(LABEL 13)
(LABEL 11) (MOVE O2 (CONSTANT 4))
(MOVE O1 -4 Q)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O5 -1 Q)
(MOVE O1 (CONSTANT 6))
(MOVE O2 -6 Q)
(MOVE O3 -5 Q)
(MOVE O4 -2 Q)
(CALL LIST 5)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 5))
(MOVE O2 0 Q)
(CALL LIST 3)
(SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE WRITE-LINE-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE WRITE-LINE-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE WRITE-LINE-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE WRITE-LINE) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE WRITE-LINE-TRANSFORM) (GET (QUOTE WRITE-LINE) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_DO-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Ill-formed DO -- possibly illegal old style DO?" DECLARE 1 2 3 "~S is illegal form in a DO varlist." BLOCK LET TAGBODY GO PSETQ UNLESS RETURN PROGN)
(CODE-START)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -16 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -15 Q)
(MOVE O1 -16 Q)
(MOVE O1 1 O1)
(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 1 O1)
(MOVEM O5 -13 Q)
(MOVEM NIL -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(CALL GENSYM 0)
(MOVEM O1 -9 Q)
(CALL GENSYM 0)
(MOVEM O1 -8 Q)
(SKIPN NIL -15 Q)
(JRST1 6)
(MOVE O1 -15 Q)
(CALL ATOM 1)
(SKIPE NIL O1)
(LABEL 6) (JRST1 5)
(SKIPN NIL -14 Q)
(JRST 8)
(MOVE O1 -14 Q)
(CALL ATOM 1)
(SKIPN NIL O1)
(LABEL 8)
(LABEL 5) (JRST 3)
(MOVE O2 NIL)
(MOVE O1 (CONSTANT 0))
(CALL ERROR 2)
(LABEL 3) (MOVE O5 -13 Q)
(MOVEM O5 -7 Q)
(LABEL 14) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPN1 O1 17)
(SKIPN NIL -7 Q)
(JRST1 18)
(MOVE O1 -7 Q)
(SKIPN NIL 0 O1)
(JRST1 18)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(CALL LISTP 1)
(JUMPE1 O1 18)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 1))
(CAMN O2 -6 Q)
(LABEL 18)
(LABEL 17) (JRST 15)
(MOVE O1 -12 Q)
(CALL NREVERSE 1)
(MOVEM O1 -12 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -13 Q)
(JRST 10)
(LABEL 15) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 -12 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 14)
(LABEL 10) (MOVE O5 -15 Q)
(MOVEM O5 -7 Q)
(MOVEM NIL -6 Q)
(LABEL 24) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPE O1 25)
(JRST 20)
(LABEL 25) (MOVE O1 -7 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(CALL ATOM 1)
(JUMPE O1 28)
(MOVE O2 -11 Q)
(MOVE O1 -6 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(JRST 27)
(LABEL 28) (MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 2))
(CALL = 2)
(JUMPE O1 30)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 30) (JRST 29)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 -11 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(JRST 27)
(LABEL 29) (MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 3))
(CALL = 2)
(JUMPE O1 33)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 33) (JRST 32)
(MOVE O2 -11 Q)
(MOVE O1 -6 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(JRST 27)
(LABEL 32) (MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 4))
(CALL = 2)
(JUMPE O1 36)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 36) (JRST 35)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 -5 Q)
(MOVE O2 -11 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -10 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL CONS 2)
(MOVEM O1 -10 Q)
(JRST 27)
(LABEL 35) (SKIPA)
(JRST 38)
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 5))
(CALL ERROR 2)
(LABEL 38)
(LABEL 27) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 24)
(LABEL 20) (MOVE O1 -11 Q)
(CALL NREVERSE 1)
(MOVEM O1 -5 Q)
(MOVE O2 -8 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVEM O1 -3 Q)
(MOVE O1 -10 Q)
(CALL NREVERSE 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -9 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 0 Q)
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O1 -14 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 13))
(CALL CONS 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 -2 Q)
(MOVE O2 -8 Q)
(MOVE O3 -1 Q)
(CALL LIST 4)
(MOVE O2 O1)
(MOVE O1 -13 Q)
(CALL APPEND 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -3 Q)
(MOVE O3 -9 Q)
(CALL LIST* 4)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(CALL APPEND 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -5 Q)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 NIL)
(CALL LIST 3)
(SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE DO-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE DO-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE DO-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DO) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE DO-TRANSFORM) (GET (QUOTE DO) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_DO*-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("Ill-formed DO -- possibly illegal old style DO?" DECLARE 1 2 3 "~S is illegal form in a DO varlist." BLOCK LET* TAGBODY GO SETQ UNLESS RETURN PROGN)
(CODE-START)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -16 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -15 Q)
(MOVE O1 -16 Q)
(MOVE O1 1 O1)
(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 1 O1)
(MOVEM O5 -13 Q)
(MOVEM NIL -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(CALL GENSYM 0)
(MOVEM O1 -9 Q)
(CALL GENSYM 0)
(MOVEM O1 -8 Q)
(SKIPN NIL -15 Q)
(JRST1 6)
(MOVE O1 -15 Q)
(CALL ATOM 1)
(SKIPE NIL O1)
(LABEL 6) (JRST1 5)
(SKIPN NIL -14 Q)
(JRST 8)
(MOVE O1 -14 Q)
(CALL ATOM 1)
(SKIPN NIL O1)
(LABEL 8)
(LABEL 5) (JRST 3)
(MOVE O2 NIL)
(MOVE O1 (CONSTANT 0))
(CALL ERROR 2)
(LABEL 3) (MOVE O5 -13 Q)
(MOVEM O5 -7 Q)
(LABEL 14) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPN1 O1 17)
(SKIPN NIL -7 Q)
(JRST1 18)
(MOVE O1 -7 Q)
(SKIPN NIL 0 O1)
(JRST1 18)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(CALL LISTP 1)
(JUMPE1 O1 18)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 1))
(CAMN O2 -6 Q)
(LABEL 18)
(LABEL 17) (JRST 15)
(MOVE O1 -12 Q)
(CALL NREVERSE 1)
(MOVEM O1 -12 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -13 Q)
(JRST 10)
(LABEL 15) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O2 -12 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 14)
(LABEL 10) (MOVE O5 -15 Q)
(MOVEM O5 -7 Q)
(MOVEM NIL -6 Q)
(LABEL 24) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPE O1 25)
(JRST 20)
(LABEL 25) (MOVE O1 -7 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(CALL ATOM 1)
(JUMPE O1 28)
(MOVE O2 -11 Q)
(MOVE O1 -6 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(JRST 27)
(LABEL 28) (MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 2))
(CALL = 2)
(JUMPE O1 30)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 30) (JRST 29)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 -11 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(JRST 27)
(LABEL 29) (MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 3))
(CALL = 2)
(JUMPE O1 33)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 33) (JRST 32)
(MOVE O2 -11 Q)
(MOVE O1 -6 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(JRST 27)
(LABEL 32) (MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 (CONSTANT 4))
(CALL = 2)
(JUMPE O1 36)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(CALL SYMBOLP 1)
(SKIPN NIL O1)
(LABEL 36) (JRST 35)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 1 O1)
(MOVE O2 0 O1)
(MOVE O1 O5)
(CALL LIST 2)
(MOVEM O1 -5 Q)
(MOVE O2 -11 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O2 -10 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL CONS 2)
(MOVEM O1 -10 Q)
(JRST 27)
(LABEL 35) (SKIPA)
(JRST 38)
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 5))
(CALL ERROR 2)
(LABEL 38)
(LABEL 27) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 24)
(LABEL 20) (MOVE O1 -11 Q)
(CALL NREVERSE 1)
(MOVEM O1 -5 Q)
(MOVE O2 -8 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVEM O1 -3 Q)
(MOVE O1 -10 Q)
(CALL NREVERSE 1)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 10))
(CALL CONS 2)
(MOVEM O1 -2 Q)
(MOVE O1 -14 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -9 Q)
(MOVE O1 (CONSTANT 9))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 11))
(MOVE O2 0 Q)
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O1 -14 Q)
(MOVE O2 1 O1)
(MOVE O1 (CONSTANT 13))
(CALL CONS 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 12))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 -2 Q)
(MOVE O2 -8 Q)
(MOVE O3 -1 Q)
(CALL LIST 4)
(MOVE O2 O1)
(MOVE O1 -13 Q)
(CALL APPEND 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -3 Q)
(MOVE O3 -9 Q)
(CALL LIST* 4)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(CALL APPEND 2)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 7))
(MOVE O2 -5 Q)
(CALL LIST* 3)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 NIL)
(CALL LIST 3)
(SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE DO*-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE DO*-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE DO*-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DO*) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE DO*-TRANSFORM) (GET (QUOTE DO*) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_DOTIMES-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(DO 0 1+ >=)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVEM NIL -5 Q)
(LABEL 5)
(LABEL 3) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O1 -6 Q)
(CALL NUMBERP 1)
(JUMPE O1 8)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 -7 Q)
(MOVE O2 (CONSTANT 1))
(CALL LIST 3)
(CALL LIST 1)
(MOVEM O1 -3 Q)
(MOVE O3 -6 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -7 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O2 -5 Q)
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O4 -4 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -3 Q)
(MOVE O3 -2 Q)
(CALL LIST* 4)
(JRST 7)
(LABEL 8) (SKIPA)
(JRST 9)
(CALL GENSYM 0)
(MOVEM O1 -3 Q)
(MOVE O2 -7 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 -7 Q)
(MOVE O2 (CONSTANT 1))
(CALL LIST 3)
(MOVEM O1 -1 Q)
(MOVE O2 -6 Q)
(MOVE O1 -3 Q)
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 -7 Q)
(CALL LIST 3)
(MOVEM O1 0 Q)
(MOVE O2 -5 Q)
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O4 -4 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -1 Q)
(MOVE O3 0 Q)
(CALL LIST* 4)
(LABEL 9)
(LABEL 7) (SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE DOTIMES-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE DOTIMES-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE DOTIMES-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DOTIMES) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE DOTIMES-TRANSFORM) (GET (QUOTE DOTIMES) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_DOLIST-TRANSFORM EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(DO* CDR CAR ATOM)
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O5 0 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(SKIPN NIL 1 O1)
(JRST 4)
(MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVE O1 1 O1)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVEM NIL -5 Q)
(LABEL 5)
(LABEL 3) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(CALL GENSYM 0)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 1))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 -3 Q)
(MOVE O2 -6 Q)
(CALL LIST 3)
(MOVEM O1 -2 Q)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 2))
(CALL LIST 2)
(MOVE O3 O1)
(MOVE O1 -7 Q)
(MOVE O2 0 Q)
(CALL LIST 3)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(CALL LIST 2)
(MOVEM O1 -2 Q)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 3))
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O2 -5 Q)
(CALL LIST 2)
(MOVEM O1 -1 Q)
(MOVE O4 -4 Q)
(MOVE O1 (CONSTANT 0))
(MOVE O2 -2 Q)
(MOVE O3 -1 Q)
(CALL LIST* 4)
(SUBI Q 9)
(POPJ P)
)
(%PUT (QUOTE DOLIST-TRANSFORM) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE DOLIST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE DOLIST-TRANSFORM) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DOLIST) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE DOLIST-TRANSFORM) (GET (QUOTE DOLIST) (QUOTE CLC-TRANSFORMS))))
(DEFVAR DELKEY (%DEPOSIT-WORD 5 1073741910))
(DEFVAR NILKEY (%DEPOSIT-WORD 5 1073741824))
#_(LAP #0_MAPHASH-TRANS EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(T QUOTE "Use /#/' for functional args." FUNCTION FUNCALL (KEY (LISP::%SP-SVREF HASHTAB INDEX2)) LET* MAKMAPH-HASHTAB ((HASHSIZE (LISP::%SP-SVREF MAKMAPH-HASHTAB 0)) (HASHTAB (LISP::%SP-SVREF MAKMAPH-HASHTAB 5)) KEY) DO ((INDEX 0 (1+ INDEX)) (INDEX2 HASHSIZE (1+ INDEX2))) ((EQ INDEX HASHSIZE)) UNLESS (OR (NOT (SETQ KEY (LISP::%SP-SVREF HASHTAB INDEX))) (EQ KEY DELKEY)) (IF (EQ KEY NILKEY) (SETQ KEY NIL)))
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(MOVEM NIL -4 Q)
(MOVEM NIL -3 Q)
(MOVEM NIL -2 Q)
(MOVE O1 O5)
(MOVE O1 0 O1)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -2 Q)
(MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 4)
(MOVE O1 (CONSTANT 0))
(MOVEM O1 -3 Q)
(JRST 3)
(LABEL 4) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -1 Q)
(JRST 5)
(MOVE O1 (CONSTANT 2))
(CALL ERROR 1)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -5 Q)
(JRST 3)
(LABEL 5) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 3))
(CAME O2 -1 Q)
(JRST 6)
(MOVE O1 1 O1)
(MOVE O1 0 O1)
(MOVEM O1 -5 Q)
(JRST 3)
(LABEL 6) (SKIPA)
(JRST 7)
(MOVE O1 (CONSTANT 0))
(MOVEM O1 -3 Q)
(LABEL 7)
(LABEL 3) (SKIPN NIL -3 Q)
(JRST 10)
(MOVE O3 (CONSTANT 5))
(MOVE O1 (CONSTANT 4))
(MOVE O2 -5 Q)
(CALL LIST* 3)
(JRST 9)
(LABEL 10) (SKIPA)
(JRST 11)
(MOVE O2 (CONSTANT 5))
(MOVE O1 -5 Q)
(CALL CONS 2)
(LABEL 11)
(LABEL 9) (MOVEM O1 -5 Q)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 7))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 (CONSTANT 8))
(CALL CONS 2)
(MOVEM O1 0 Q)
(MOVE O4 -5 Q)
(MOVE O1 (CONSTANT 12))
(MOVE O2 (CONSTANT 13))
(MOVE O3 (CONSTANT 14))
(CALL LIST 4)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 9))
(MOVE O2 (CONSTANT 10))
(MOVE O3 (CONSTANT 11))
(CALL LIST 4)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 6))
(MOVE O2 0 Q)
(CALL LIST 3)
(SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE MAPHASH-TRANS) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (**FORM**)))
(%PUT (QUOTE MAPHASH-TRANS) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE MAPHASH-TRANS) (QUOTE LISP::%SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MAPHASH) (QUOTE CLC-TRANSFORMS) (CONS (QUOTE MAPHASH-TRANS) (GET (QUOTE MAPHASH) (QUOTE CLC-TRANSFORMS))))
#_(LAP #0_WHITESPACE-CHAR-P EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(*READTABLE*)
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVEM O1 -1 Q)
(MOVE O1 (SPECIAL 0))
(CALL LISP::CHARACTER-ATTRIBUTE-TABLE 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(CALL CHAR-INT 1)
(MOVE O2 O1)
(MOVE O1 0 Q)
(CALL ELT 2)
(CALL ZEROP 1)
(SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE WHITESPACE-CHAR-P) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE (C)))
(%PUT (QUOTE WHITESPACE-CHAR-P) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>TRANS.CLISP.7") (GET (QUOTE WHITESPACE-CHAR-P) (QUOTE LISP::%SOURCE-DOCUMENTATION))))