Google
 

Trailing-Edge - PDP-10 Archives - clisp - clisp/upsala/optimizer.lap
There are no other files named optimizer.lap in the archive.
;;; CLC vP.U.V.1(2) compiling CARMEN::SS:<CLISP.UPSALA>OPTIMIZER.CLISP.28

(IN-PACKAGE "COMPILER") 
(SHADOW (QUOTE (LISP:OPTIMIZE))) 
(DOLIST (X (QUOTE (SKIPA SKIPE SKIPN LABEL CAME CAMN CAMG CAMGE CAML CAMLE))) (SETF (GET X (QUOTE SKIPINST)) T)) 

#_(LAP #0_OPTIMIZE-INTERNAL-13 EXPR
       (ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
       #0_(GT5ARG)
       (CODE-START)
(LABEL 1)    (ADDI Q 2)
             (MOVE O6 0 O6)
             (MOVEM O6 -1 Q)
             (MOVEM O1 0 Q)
             (MOVE O2 (CONSTANT 0))
             (CALL GET 2)
             (JUMPN O1 3)
             (MOVE O6 -1 Q)
             (MOVE O2 1 O6)
             (MOVE O1 0 Q)
             (CALL GETHASH 2)
(LABEL 3)    (SUBI Q 2)
             (POPJ P)
)


#_(LAP #0_OPTIMIZE EXPR
       (ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
       #0_(*LABEL-COUNTER* ENTRY-POINTS T LAP-CODE SKIPA SKIPINST LABEL CONTINUE (CONTINUE TOP-CONTOUR CONTOUR) :TEST EQL (JRST JRST1) JRST (JRST JRST1 JUMPA JUMPA1) (JUMPE JUMPN) ((JUMPA (SKIPE . JUMPN) (SKIPN . JUMPE)) (JUMPA1 (SKIPE . JUMPN1) (SKIPN . JUMPE1))) ((JUMPA . JRST) (JUMPA1 . JRST1)) (O1 O2 O3 O4 O5 O6 NIL) 1 N MOVE 0 (O1 O2 O3 O4 O5 O6) (CAME CAMN CAMG CAMGE CAML CAMLE JRST JRST1 JUMPE JUMPN JUMPE1 JUMPN1) (ADD ADDI SUB SUBI) MOVEM (JUMPE JUMPE1 JUMPN JUMPN1) OPTIMIZE-INTERNAL-13 *TEMPS* 2)
       (CODE-START)
(LABEL 1)    (ADDI Q 23)
             (MOVE W2 (CONSTANT 18))
             (MOVE O6 NIL)
             (ICALL ALLOC-CLOSURE-VECTOR)
             (MOVEM W3 -22 Q)
             (MOVE O1 (SPECIAL 0))
             (CALL 1+ 1)
             (CALL MAKE-ARRAY 1)
             (MOVEM O1 -20 Q)
             (MOVEM NIL -19 Q)
             (MOVE O5 (SPECIAL 1))
             (MOVEM O5 -17 Q)
             (MOVE O1 O5)
             (MOVE O5 0 O1)
             (MOVEM O5 -16 Q)
(LABEL 7)    (MOVE O1 -17 Q)
             (CALL ATOM 1)
             (JUMPE O1 8)
             (JRST 3)
(LABEL 8)    (MOVE O1 -16 Q)
             (CALL NUMBERP 1)
             (JUMPE O1 10)
             (MOVE O3 (CONSTANT 2))
             (MOVE O1 -20 Q)
             (MOVE O2 -16 Q)
             (ADDI O1 0 O2)
             (MOVEM O3 0 O1)
(LABEL 10)   (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVEM O1 -17 Q)
             (MOVE O1 0 O1)
             (MOVEM O1 -16 Q)
             (JRST 7)
(LABEL 3)    (MOVE O5 (SPECIAL 3))
             (MOVEM O5 -17 Q)
             (MOVE O1 O5)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -16 Q)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O5 1 O1)
             (MOVEM O5 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O5 0 O1)
             (MOVEM O5 -14 Q)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -13 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -12 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -11 Q)
(LABEL 16)   (SKIPE NIL -16 Q)
             (JRST 17)
             (JRST 12)
(LABEL 17)   (MOVE O5 -14 Q)
             (MOVEM O5 -9 Q)
             (MOVE O2 (CONSTANT 4))
             (CAME O2 -9 Q)
             (JRST 20)
             (MOVE O1 -17 Q)
             (MOVE O1 0 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -8 Q)
             (MOVE O2 (CONSTANT 5))
             (MOVE O1 O5)
             (CALL GET 2)
             (JUMPN O1 22)
             (MOVE O1 -15 Q)
             (MOVE O1 0 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -7 Q)
             (MOVE O2 (CONSTANT 6))
             (CAME O2 -7 Q)
             (JRST 24)
             (JRST 23)
(LABEL 24)   (MOVE O2 (CONSTANT 7))
             (CAME O2 -7 Q)
             (JRST 25)
             (MOVE O1 NIL)
             (MOVEM O1 -11 Q)
             (MOVE O5 -17 Q)
             (MOVEM O5 -5 Q)
             (MOVE O1 -15 Q)
             (MOVE O5 1 O1)
             (MOVEM O5 -4 Q)
             (MOVE O1 -5 Q)
             (MOVE O5 1 O1)
             (MOVEM O5 -3 Q)
             (MOVE O2 -4 Q)
             (MOVE O1 O5)
             (CALL LISP::%RPLACD 2)
             (JRST 23)
(LABEL 25)   (SKIPA)
             (JRST 26)
             (MOVE O1 NIL)
             (MOVEM O1 -11 Q)
             (MOVE O1 -15 Q)
             (MOVE O2 1 O1)
             (MOVE O1 -17 Q)
             (CALL LISP::%RPLACD 2)
(LABEL 26)
(LABEL 23)
(LABEL 22)   (JRST 19)
(LABEL 20)   (MOVE O4 (CONSTANT 10))
             (MOVE O1 -9 Q)
             (MOVE O2 (CONSTANT 8))
             (MOVE O3 (CONSTANT 9))
             (CALL MEMBER 4)
             (JUMPE O1 29)
             (MOVE O1 NIL)
             (MOVEM O1 -11 Q)
             (MOVE O2 -15 Q)
             (MOVE O1 -17 Q)
             (CALL LISP::%RPLACD 2)
             (JRST 19)
(LABEL 29)   (SKIPA)
             (JRST 30)
             (MOVE O2 (CONSTANT 11))
             (MOVE O1 -14 Q)
             (CALL MEMQ 2)
             (JUMPE O1 33)
             (MOVE O1 -15 Q)
             (MOVE O1 0 O1)
             (MOVE O2 0 O1)
             (CAMN O2 (CONSTANT 6))
(LABEL 33)   (JRST 32)
             (MOVE O1 NIL)
             (MOVEM O1 -11 Q)
             (MOVE O5 -17 Q)
             (MOVEM O5 -7 Q)
             (MOVE O1 -15 Q)
             (MOVE O5 1 O1)
             (MOVEM O5 -6 Q)
             (MOVE O1 -7 Q)
             (MOVE O5 1 O1)
             (MOVEM O5 -5 Q)
             (MOVE O2 -6 Q)
             (MOVE O1 O5)
             (CALL LISP::%RPLACD 2)
             (JRST 31)
(LABEL 32)   (MOVE O2 (CONSTANT 12))
             (CAME O2 -14 Q)
             (JRST 36)
             (MOVE O5 -15 Q)
             (MOVEM O5 -7 Q)
(LABEL 42)   (MOVE O1 -7 Q)
             (MOVE O1 0 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -6 Q)
             (MOVE O2 (CONSTANT 6))
             (CAME O2 -6 Q)
             (JRST1 45)
             (MOVE O1 -7 Q)
             (MOVE O1 0 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -6 Q)
             (MOVE O2 -13 Q)
             (CAME O2 -6 Q)
(LABEL 45)   (JRST 43)
             (MOVE O1 -7 Q)
             (MOVE O1 0 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -6 Q)
             (MOVE O2 (CONSTANT 6))
             (CAME O2 -6 Q)
             (JRST 46)
             (MOVE O1 -7 Q)
             (MOVE O1 0 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -6 Q)
             (MOVE O2 -13 Q)
             (CAME O2 -6 Q)
(LABEL 46)   (JRST 38)
             (JRST1 38)
(LABEL 43)   (MOVE O1 -7 Q)
             (MOVE O1 1 O1)
             (MOVEM O1 -7 Q)
             (JRST 42)
(LABEL 38)
(LABEL 36)   (JRST 35)
             (MOVE O1 NIL)
             (MOVEM O1 -11 Q)
             (MOVE O2 -15 Q)
             (MOVE O1 -17 Q)
             (CALL LISP::%RPLACD 2)
             (JRST 31)
(LABEL 35)   (MOVE O2 (CONSTANT 13))
             (MOVE O1 -14 Q)
             (CALL MEMQ 2)
             (JUMPE O1 50)
             (MOVE O1 -13 Q)
             (JRST 49)
(LABEL 50)   (MOVE O2 (CONSTANT 14))
             (MOVE O1 -14 Q)
             (CALL MEMQ 2)
             (JUMPE O1 51)
             (MOVE O1 -12 Q)
             (JRST 49)
(LABEL 51)   (MOVE O1 NIL)
(LABEL 49)   (MOVEM O1 -19 Q)
             (JUMPE O1 48)
             (MOVE O3 (CONSTANT 2))
             (MOVE O1 -20 Q)
             (MOVE O2 -19 Q)
             (ADDI O1 0 O2)
             (MOVEM O3 0 O1)
(LABEL 48)
(LABEL 31)
(LABEL 30)
(LABEL 19)   (SKIPN NIL -11 Q)
             (JRST 55)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (JRST 56)
(LABEL 55)   (MOVE O1 -17 Q)
(LABEL 56)   (MOVEM O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -16 Q)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVEM O1 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 0 O1)
             (MOVEM O1 -14 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -13 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -12 Q)
             (MOVE O1 (CONSTANT 2))
             (MOVEM O1 -11 Q)
             (JRST 16)
(LABEL 12)   (MOVE O5 (SPECIAL 3))
             (MOVEM O5 -17 Q)
             (MOVE O1 O5)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -16 Q)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O5 1 O1)
             (MOVEM O5 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O5 0 O1)
             (MOVEM O5 -14 Q)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -13 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -12 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -11 Q)
(LABEL 61)   (SKIPE NIL -16 Q)
             (JRST 62)
             (JRST 57)
(LABEL 62)   (MOVE O2 (CONSTANT 6))
             (CAME O2 -14 Q)
             (JRST 66)
             (MOVE O2 -13 Q)
             (MOVE O1 -20 Q)
             (ADDI O1 0 O2)
             (SKIPE NIL 0 O1)
(LABEL 66)   (JRST 64)
             (MOVE O1 NIL)
             (MOVEM O1 -11 Q)
             (MOVE O2 -15 Q)
             (MOVE O1 -17 Q)
             (CALL LISP::%RPLACD 2)
(LABEL 64)   (SKIPN NIL -11 Q)
             (JRST 68)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (JRST 69)
(LABEL 68)   (MOVE O1 -17 Q)
(LABEL 69)   (MOVEM O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -16 Q)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVEM O1 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 0 O1)
             (MOVEM O1 -14 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -13 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -12 Q)
             (MOVE O1 (CONSTANT 2))
             (MOVEM O1 -11 Q)
             (JRST 61)
(LABEL 57)   (MOVE O5 (SPECIAL 3))
             (MOVEM O5 -17 Q)
             (MOVE O1 O5)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -16 Q)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O5 1 O1)
             (MOVEM O5 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O5 0 O1)
             (MOVEM O5 -14 Q)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -13 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -12 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -11 Q)
(LABEL 74)   (SKIPE NIL -16 Q)
             (JRST 75)
             (JRST 70)
(LABEL 75)   (MOVE O2 (CONSTANT 15))
             (MOVE O1 -14 Q)
             (CALL ASSQ 2)
             (MOVEM O1 -9 Q)
             (MOVE O1 -17 Q)
             (MOVE O1 0 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -7 Q)
             (MOVE O1 -9 Q)
             (MOVE O2 1 O1)
             (MOVE O1 O5)
             (CALL ASSQ 2)
             (MOVE O5 1 O1)
             (MOVEM O5 -8 Q)
             (MOVE O2 (CONSTANT 16))
             (MOVE O1 -14 Q)
             (CALL ASSQ 2)
             (MOVE O5 1 O1)
             (MOVEM O5 -7 Q)
             (SKIPN NIL -9 Q)
             (JRST 77)
             (SKIPN NIL -8 Q)
             (JRST 79)
             (MOVE O1 -17 Q)
             (MOVE O1 0 O1)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -6 Q)
             (MOVE O2 (CONSTANT 17))
             (MOVE O1 O5)
             (CALL MEMQ 2)
             (JUMPE O1 82)
             (MOVE O1 -17 Q)
             (MOVE O1 0 O1)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -4 Q)
             (MOVE O3 -13 Q)
             (MOVE O1 -8 Q)
             (MOVE O2 O5)
             (CALL LIST 3)
             (MOVE O2 O1)
             (MOVE O1 -17 Q)
             (CALL RPLACA 2)
             (MOVE O1 NIL)
             (MOVEM O1 -11 Q)
             (MOVE O2 -15 Q)
             (MOVE O1 -17 Q)
             (CALL LISP::%RPLACD 2)
             (JRST 81)
(LABEL 82)   (SKIPA)
             (JRST 83)
             (MOVE O2 -7 Q)
             (MOVE O1 -16 Q)
             (CALL RPLACA 2)
(LABEL 83)
(LABEL 81)   (JRST 80)
(LABEL 79)   (MOVE O2 -7 Q)
             (MOVE O1 -16 Q)
             (CALL RPLACA 2)
(LABEL 80)
(LABEL 77)   (SKIPN NIL -11 Q)
             (JRST 85)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (JRST 86)
(LABEL 85)   (MOVE O1 -17 Q)
(LABEL 86)   (MOVEM O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -16 Q)
             (MOVE O1 -17 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVEM O1 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 0 O1)
             (MOVEM O1 -14 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -13 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -12 Q)
             (MOVE O1 (CONSTANT 2))
             (MOVEM O1 -11 Q)
             (JRST 74)
(LABEL 70)   (MOVEM NIL -20 Q)
             (MOVE O5 (CONSTANT 18))
             (MOVEM O5 -19 Q)
             (MOVEM NIL -18 Q)
             (MOVEM NIL -17 Q)
             (MOVEM NIL -16 Q)
             (MOVEM NIL -15 Q)
             (MOVE O1 O5)
             (SPEC-BIND (SPECIAL 19))
             (MOVEM O1 (SPECIAL 19))
             (MOVE O5 (SPECIAL 3))
             (MOVEM O5 -13 Q)
             (MOVE O1 O5)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -12 Q)
             (MOVE O1 -13 Q)
             (MOVE O1 1 O1)
             (MOVE O5 1 O1)
             (MOVEM O5 -11 Q)
             (MOVE O1 -12 Q)
             (MOVE O5 0 O1)
             (MOVEM O5 -10 Q)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -9 Q)
             (MOVE O1 -12 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -8 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -7 Q)
(LABEL 91)   (SKIPE NIL -12 Q)
             (JRST 92)
             (JRST 87)
(LABEL 92)   (MOVE O5 -10 Q)
             (MOVEM O5 -5 Q)
             (MOVE O2 (CONSTANT 20))
             (CAME O2 -5 Q)
             (JRST 95)
             (SKIPE NIL -8 Q)
             (JRST 97)
             (MOVE O1 (CONSTANT 21))
             (JRST 96)
(LABEL 97)   (MOVE O1 -8 Q)
             (CALL NUMBERP 1)
             (JUMPE O1 98)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -3 Q)
             (MOVEM O1 (SPECIAL 19))
             (JRST 96)
(LABEL 98)   (MOVE O2 (CONSTANT 22))
             (MOVE O1 -8 Q)
             (CALL MEMQ 2)
             (JUMPE O1 99)
             (MOVE O2 -18 Q)
             (MOVE O1 -8 Q)
             (CALL ASSQ 2)
             (MOVE O1 1 O1)
             (JUMPN O1 100)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -2 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -3 Q)
             (MOVE O3 -18 Q)
             (MOVE O1 -8 Q)
             (MOVE O2 -3 Q)
             (CALL ACONS 3)
             (MOVEM O1 -18 Q)
             (MOVE O1 0 O1)
             (MOVE O1 1 O1)
(LABEL 100)  (JRST 96)
(LABEL 99)   (MOVE O2 -20 Q)
             (MOVE O1 -8 Q)
             (CALL GETHASH 2)
             (JUMPN O1 96)
             (MOVE O5 -8 Q)
             (MOVEM O5 -3 Q)
             (MOVE O5 -20 Q)
             (MOVEM O5 -2 Q)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 0 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -1 Q)
             (MOVE O3 O1)
             (MOVE O1 -3 Q)
             (MOVE O2 -2 Q)
             (CALL LISP::%PUTHASH 3)
(LABEL 96)   (MOVEM O1 -16 Q)
             (MOVE O2 -18 Q)
             (MOVE O1 -9 Q)
             (CALL ASSQ 2)
             (JUMPN O1 104)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -2 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -3 Q)
             (MOVE O3 -18 Q)
             (MOVE O1 -9 Q)
             (MOVE O2 -3 Q)
             (CALL ACONS 3)
             (MOVEM O1 -18 Q)
             (MOVE O1 0 O1)
(LABEL 104)  (MOVEM O1 -17 Q)
             (MOVE O2 1 O1)
             (CAME O2 -16 Q)
             (JRST 106)
             (MOVE O1 NIL)
             (MOVEM O1 -7 Q)
             (MOVE O2 -11 Q)
             (MOVE O1 -13 Q)
             (CALL LISP::%RPLACD 2)
             (JRST 105)
(LABEL 106)  (MOVE O2 -18 Q)
             (MOVE O1 -16 Q)
             (CALL RASSOC 2)
             (MOVEM O1 -15 Q)
             (JUMPE O1 107)
             (MOVE O1 -12 Q)
             (MOVE O1 1 O1)
             (MOVE O5 1 O1)
             (MOVEM O5 -4 Q)
             (MOVE O1 -15 Q)
             (MOVE O2 0 O1)
             (MOVE O1 O5)
             (CALL RPLACA 2)
             (MOVE O1 -12 Q)
             (MOVE O1 1 O1)
             (MOVE O5 1 O1)
             (MOVEM O5 -4 Q)
             (MOVE O2 NIL)
             (MOVE O1 O5)
             (CALL RPLACD 2)
             (MOVE O2 -16 Q)
             (MOVE O1 -17 Q)
             (CALL LISP::%RPLACD 2)
             (JRST 105)
(LABEL 107)  (SKIPA)
             (JRST 108)
             (MOVE O2 -16 Q)
             (MOVE O1 -17 Q)
             (CALL LISP::%RPLACD 2)
(LABEL 108)
(LABEL 105)  (JRST 94)
(LABEL 95)   (MOVE O4 (CONSTANT 10))
             (MOVE O1 -5 Q)
             (MOVE O2 (CONSTANT 23))
             (MOVE O3 (CONSTANT 9))
             (CALL MEMBER 4)
             (JUMPE O1 110)
             (JRST 94)
(LABEL 110)  (MOVE O4 (CONSTANT 10))
             (MOVE O1 -5 Q)
             (MOVE O2 (CONSTANT 24))
             (MOVE O3 (CONSTANT 9))
             (CALL MEMBER 4)
             (JUMPE O1 111)
             (SKIPE NIL -8 Q)
             (JRST 113)
             (MOVE O1 (CONSTANT 21))
             (JRST 112)
(LABEL 113)  (MOVE O1 -8 Q)
             (CALL NUMBERP 1)
             (JUMPE O1 114)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -3 Q)
             (MOVEM O1 (SPECIAL 19))
             (JRST 112)
(LABEL 114)  (MOVE O2 (CONSTANT 22))
             (MOVE O1 -8 Q)
             (CALL MEMQ 2)
             (JUMPE O1 115)
             (MOVE O2 -18 Q)
             (MOVE O1 -8 Q)
             (CALL ASSQ 2)
             (MOVE O1 1 O1)
             (JUMPN O1 116)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -2 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -3 Q)
             (MOVE O3 -18 Q)
             (MOVE O1 -8 Q)
             (MOVE O2 -3 Q)
             (CALL ACONS 3)
             (MOVEM O1 -18 Q)
             (MOVE O1 0 O1)
             (MOVE O1 1 O1)
(LABEL 116)  (JRST 112)
(LABEL 115)  (MOVE O2 -20 Q)
             (MOVE O1 -8 Q)
             (CALL GETHASH 2)
             (JUMPN O1 112)
             (MOVE O5 -8 Q)
             (MOVEM O5 -3 Q)
             (MOVE O5 -20 Q)
             (MOVEM O5 -2 Q)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 0 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -1 Q)
             (MOVE O3 O1)
             (MOVE O1 -3 Q)
             (MOVE O2 -2 Q)
             (CALL LISP::%PUTHASH 3)
(LABEL 112)  (MOVEM O1 -16 Q)
             (MOVE O2 -18 Q)
             (MOVE O1 -9 Q)
             (CALL ASSQ 2)
             (JUMPN O1 120)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -2 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -3 Q)
             (MOVE O3 -18 Q)
             (MOVE O1 -9 Q)
             (MOVE O2 -3 Q)
             (CALL ACONS 3)
             (MOVEM O1 -18 Q)
             (MOVE O1 0 O1)
(LABEL 120)  (MOVEM O1 -17 Q)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -2 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVE O2 O1)
             (MOVE O1 -17 Q)
             (CALL RPLACD 2)
             (JRST 94)
(LABEL 111)  (MOVE O2 (CONSTANT 25))
             (CAME O2 -5 Q)
             (JRST 121)
             (SKIPE NIL -8 Q)
             (JRST 123)
             (MOVE O1 (CONSTANT 21))
             (JRST 122)
(LABEL 123)  (MOVE O1 -8 Q)
             (CALL NUMBERP 1)
             (JUMPE O1 124)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -3 Q)
             (MOVEM O1 (SPECIAL 19))
             (JRST 122)
(LABEL 124)  (MOVE O2 (CONSTANT 22))
             (MOVE O1 -8 Q)
             (CALL MEMQ 2)
             (JUMPE O1 125)
             (MOVE O2 -18 Q)
             (MOVE O1 -8 Q)
             (CALL ASSQ 2)
             (MOVE O1 1 O1)
             (JUMPN O1 126)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -2 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -3 Q)
             (MOVE O3 -18 Q)
             (MOVE O1 -8 Q)
             (MOVE O2 -3 Q)
             (CALL ACONS 3)
             (MOVEM O1 -18 Q)
             (MOVE O1 0 O1)
             (MOVE O1 1 O1)
(LABEL 126)  (JRST 122)
(LABEL 125)  (MOVE O2 -20 Q)
             (MOVE O1 -8 Q)
             (CALL GETHASH 2)
             (JUMPN O1 122)
             (MOVE O5 -8 Q)
             (MOVEM O5 -3 Q)
             (MOVE O5 -20 Q)
             (MOVEM O5 -2 Q)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 0 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -1 Q)
             (MOVE O3 O1)
             (MOVE O1 -3 Q)
             (MOVE O2 -2 Q)
             (CALL LISP::%PUTHASH 3)
(LABEL 122)  (MOVEM O1 -16 Q)
             (MOVE O2 -18 Q)
             (MOVE O1 -9 Q)
             (CALL ASSQ 2)
             (JUMPN O1 130)
             (MOVE O1 (SPECIAL 19))
             (CALL 1+ 1)
             (MOVEM O1 -2 Q)
             (MOVEM O1 (SPECIAL 19))
             (MOVEM O1 -3 Q)
             (MOVE O3 -18 Q)
             (MOVE O1 -9 Q)
             (MOVE O2 -3 Q)
             (CALL ACONS 3)
             (MOVEM O1 -18 Q)
             (MOVE O1 0 O1)
(LABEL 130)  (MOVEM O1 -17 Q)
             (MOVE O2 (CONSTANT 22))
             (MOVE O1 -8 Q)
             (CALL MEMQ 2)
             (JUMPE O1 131)
             (MOVE O2 -18 Q)
             (MOVE O1 -8 Q)
             (CALL ASSQ 2)
             (SKIPE NIL O1)
             (MOVEM O1 -4 Q)
             (JUMPN O1 133)
             (MOVE O3 -18 Q)
             (MOVE O1 -8 Q)
             (MOVE O2 NIL)
             (CALL ACONS 3)
             (MOVEM O1 -18 Q)
             (MOVE O5 0 O1)
             (MOVEM O5 -4 Q)
(LABEL 133)  (MOVE O1 -17 Q)
             (MOVE O2 1 O1)
             (MOVE O1 -4 Q)
             (CALL RPLACD 2)
             (JRST 132)
(LABEL 131)  (MOVE O5 -8 Q)
             (MOVEM O5 -3 Q)
             (MOVE O5 -20 Q)
             (MOVEM O5 -2 Q)
             (MOVE O1 -17 Q)
             (MOVE O5 1 O1)
             (MOVEM O5 -1 Q)
             (MOVE O3 O5)
             (MOVE O1 -3 Q)
             (MOVE O2 -2 Q)
             (CALL LISP::%PUTHASH 3)
(LABEL 132)  (JRST 94)
(LABEL 121)  (MOVE O2 (CONSTANT 6))
             (CAME O2 -5 Q)
             (JRST 134)
             (CALL MAKE-HASH-TABLE 0)
             (MOVEM O1 -20 Q)
             (MOVE O1 NIL)
             (MOVEM O1 -18 Q)
             (JRST 94)
(LABEL 134)  (SKIPA)
             (JRST 135)
             (MOVE O1 NIL)
             (MOVEM O1 -18 Q)
(LABEL 135)
(LABEL 94)   (SKIPN NIL -7 Q)
             (JRST 137)
             (MOVE O1 -13 Q)
             (MOVE O1 1 O1)
             (JRST 138)
(LABEL 137)  (MOVE O1 -13 Q)
(LABEL 138)  (MOVEM O1 -13 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -12 Q)
             (MOVE O1 -13 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVEM O1 -11 Q)
             (MOVE O1 -12 Q)
             (MOVE O1 0 O1)
             (MOVEM O1 -10 Q)
             (MOVE O1 -12 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -9 Q)
             (MOVE O1 -12 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -8 Q)
             (MOVE O1 (CONSTANT 2))
             (MOVEM O1 -7 Q)
             (JRST 91)
(LABEL 87)   (UNBIND 1)
             (MOVE W2 (CONSTANT 29))
             (MOVE O6 -22 Q)
             (ICALL ALLOC-CLOSURE-VECTOR)
             (MOVEM W3 -21 Q)
             (CALL MAKE-HASH-TABLE 0)
             (MOVE O6 -21 Q)
             (MOVEM O1 1 O6)
             (CALL MAKE-HASH-TABLE 0)
             (MOVEM O1 -19 Q)
             (MOVEM NIL -18 Q)
             (MOVE O1 (SPECIAL 3))
             (CALL NREVERSE 1)
             (MOVEM O1 (SPECIAL 3))
             (MOVE O5 (SPECIAL 3))
             (MOVEM O5 -16 Q)
             (MOVE O1 O5)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O5 1 O1)
             (MOVEM O5 -14 Q)
             (MOVE O1 -15 Q)
             (MOVE O5 0 O1)
             (MOVEM O5 -13 Q)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -12 Q)
             (MOVE O1 -15 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O5 0 O1)
             (MOVEM O5 -11 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -10 Q)
(LABEL 143)  (SKIPE NIL -15 Q)
             (JRST 144)
             (JRST 139)
(LABEL 144)  (MOVE O5 -13 Q)
             (MOVEM O5 -8 Q)
             (MOVE O2 (CONSTANT 25))
             (CAME O2 -8 Q)
             (JRST 147)
             (SKIPN NIL -10 Q)
             (JRST 148)
             (MOVE O1 -11 Q)
             (CALL SYMBOLP 1)
             (JUMPE O1 150)
             (MOVE O5 -11 Q)
             (MOVEM O5 -6 Q)
             (MOVE O6 -21 Q)
             (MOVE O5 1 O6)
             (MOVEM O5 -5 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -4 Q)
             (MOVE O3 O5)
             (MOVE O1 -6 Q)
             (MOVE O2 -5 Q)
             (CALL LISP::%PUTHASH 3)
(LABEL 150)  (JRST 149)
(LABEL 148)  (MOVE O1 -11 Q)
             (CALL SYMBOLP 1)
             (JUMPE O1 152)
             (MOVE O6 -21 Q)
             (MOVE O2 1 O6)
             (MOVE O1 -11 Q)
             (CALL GETHASH 2)
             (JUMPN O1 152)
             (MOVE O1 NIL)
             (MOVEM O1 -10 Q)
             (MOVE O2 -14 Q)
             (MOVE O1 -16 Q)
             (CALL LISP::%RPLACD 2)
(LABEL 152)
(LABEL 149)  (JRST 146)
(LABEL 147)  (MOVE O2 (CONSTANT 6))
             (CAME O2 -8 Q)
             (JRST 154)
             (MOVE O5 -12 Q)
             (MOVEM O5 -6 Q)
             (MOVE O5 -19 Q)
             (MOVEM O5 -5 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -4 Q)
             (MOVE O3 O5)
             (MOVE O1 -6 Q)
             (MOVE O2 -5 Q)
             (CALL LISP::%PUTHASH 3)
             (JRST 146)
(LABEL 154)  (MOVE O4 (CONSTANT 10))
             (MOVE O1 -8 Q)
             (MOVE O2 (CONSTANT 26))
             (MOVE O3 (CONSTANT 9))
             (CALL MEMBER 4)
             (JUMPE O1 155)
             (MOVE O2 -19 Q)
             (MOVE O1 -11 Q)
             (CALL GETHASH 2)
             (JUMPN O1 157)
             (MOVE O1 (CONSTANT 2))
             (MOVEM O1 -10 Q)
(LABEL 157)  (JRST 146)
(LABEL 155)  (MOVE O4 (CONSTANT 10))
             (MOVE O1 -8 Q)
             (MOVE O2 (CONSTANT 11))
             (MOVE O3 (CONSTANT 9))
             (CALL MEMBER 4)
             (JUMPE O1 159)
             (MOVE O2 -19 Q)
             (MOVE O1 -12 Q)
             (CALL GETHASH 2)
             (JUMPN O1 161)
             (MOVE O1 (CONSTANT 2))
             (MOVEM O1 -10 Q)
(LABEL 161)  (JRST 146)
(LABEL 159)  (SKIPA)
             (JRST 163)
             (MOVE O1 -11 Q)
             (CALL SYMBOLP 1)
             (JUMPE O1 164)
             (MOVE O5 -11 Q)
             (MOVEM O5 -6 Q)
             (MOVE O6 -21 Q)
             (MOVE O5 1 O6)
             (MOVEM O5 -5 Q)
             (MOVE O5 (CONSTANT 2))
             (MOVEM O5 -4 Q)
             (MOVE O3 O5)
             (MOVE O1 -6 Q)
             (MOVE O2 -5 Q)
             (CALL LISP::%PUTHASH 3)
(LABEL 164)
(LABEL 163)
(LABEL 146)  (SKIPN NIL -10 Q)
             (JRST 167)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (JRST 168)
(LABEL 167)  (MOVE O1 -16 Q)
(LABEL 168)  (MOVEM O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -15 Q)
             (MOVE O1 -16 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVEM O1 -14 Q)
             (MOVE O1 -15 Q)
             (MOVE O1 0 O1)
             (MOVEM O1 -13 Q)
             (MOVE O1 -15 Q)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -12 Q)
             (MOVE O1 -15 Q)
             (MOVE O1 1 O1)
             (MOVE O1 1 O1)
             (MOVE O1 0 O1)
             (MOVEM O1 -11 Q)
             (MOVE O1 (CONSTANT 2))
             (MOVEM O1 -10 Q)
             (JRST 143)
(LABEL 139)  (MOVE O1 (SPECIAL 3))
             (CALL NREVERSE 1)
             (MOVEM O1 (SPECIAL 3))
             (MOVE O1 (CONSTANT 27))
             (MOVE O2 -21 Q)
             (ICALL CLOGEN)
             (MOVEM O1 -17 Q)
             (MOVE O2 (SPECIAL 28))
             (CALL REMOVE-IF-NOT 2)
             (MOVEM O1 (SPECIAL 28))
             (MOVEI N 1)
             (SUBI Q 23)
             (POPJ P)
)

(%PUT (QUOTE OPTIMIZE) (QUOTE LISP::%ARGS-DOCUMENTATION) (QUOTE NIL)) 
(%PUT (QUOTE OPTIMIZE) (QUOTE LISP::%SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>OPTIMIZER.CLISP.28") (GET (QUOTE OPTIMIZE) (QUOTE LISP::%SOURCE-DOCUMENTATION))))