Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/seq.lap
There are no other files named seq.lap in the archive.
;;; CLC vP.U.V.1(2) compiling CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17
(IN-PACKAGE (QUOTE LISP))
(EXPORT (QUOTE (ELT SUBSEQ COPY-SEQ COERCE LENGTH REVERSE NREVERSE MAKE-SEQUENCE CONCATENATE MAP SOME EVERY NOTANY NOTEVERY REDUCE FILL REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE DELETE-IF DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE SUBSTITUTE-IF SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT FIND FIND-IF FIND-IF-NOT POSITION POSITION-IF POSITION-IF-NOT COUNT COUNT-IF COUNT-IF-NOT MISMATCH SEARCH)))
(%PUT (QUOTE TYPE-SPECIFIER) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the broad class of which TYPE is a specific subclass."))
#_(LAP #0_TYPE-SPECIFIER MACRO
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2 "Macro ~S cannot be called with ~S args." TYPE-SPECIFIER IF ATOM CAR)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(CALL LENGTH 1)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPN O1 4)
(MOVE O1 -3 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 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(MOVEM O1 0 Q)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVE O4 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 0 Q)
(MOVE O3 -1 Q)
(CALL LIST 4)
(LABEL 5)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE TYPE-SPECIFIER) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TYPE)))
(%PUT (QUOTE TYPE-SPECIFIER) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE TYPE-SPECIFIER) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MAKE-SEQUENCE-OF-TYPE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the given TYPE and LENGTH."))
#_(LAP #0_MAKE-SEQUENCE-OF-TYPE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LIST (BIT-VECTOR SIMPLE-BIT-VECTOR) :TEST EQL :ELEMENT-TYPE (MOD 2) (STRING SIMPLE-STRING) SIMPLE-VECTOR (ARRAY SIMPLE-ARRAY VECTOR) "~S is a bad type specifier for sequence functions.")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(CALL ATOM 1)
(JUMPE O1 3)
(MOVE O5 -2 Q)
(MOVEM O5 0 Q)
(JRST 4)
(LABEL 3) (MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 4) (MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 6)
(MOVE O1 -1 Q)
(CALL MAKE-LIST 1)
(JRST 5)
(LABEL 6) (MOVE O4 (CONSTANT 3))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O3 (CONSTANT 2))
(CALL MEMBER 4)
(JUMPE O1 7)
(MOVE O3 (CONSTANT 5))
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 4))
(CALL MAKE-ARRAY 3)
(JRST 5)
(LABEL 7) (MOVE O4 (CONSTANT 3))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O3 (CONSTANT 2))
(CALL MEMBER 4)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(CALL LISP::%SP-ALLOC-STRING 1)
(JRST 5)
(LABEL 8) (MOVE O2 (CONSTANT 7))
(CAME O2 0 Q)
(JRST 9)
(MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL LISP::%SP-ALLOC-B-VECTOR 2)
(JRST 5)
(LABEL 9) (MOVE O4 (CONSTANT 3))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O3 (CONSTANT 2))
(CALL MEMBER 4)
(JUMPE O1 10)
(MOVE O1 -2 Q)
(CALL LISTP 1)
(JUMPE O1 11)
(MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVE O3 0 O1)
(MOVE O1 -1 Q)
(MOVE O2 (CONSTANT 4))
(CALL MAKE-ARRAY 3)
(JRST 12)
(LABEL 11) (MOVE O2 NIL)
(MOVE O1 -1 Q)
(CALL LISP::%SP-ALLOC-B-VECTOR 2)
(LABEL 12) (JRST 5)
(LABEL 10) (SKIPA)
(JRST 13)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 9))
(CALL ERROR 2)
(LABEL 13)
(LABEL 5) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE MAKE-SEQUENCE-OF-TYPE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TYPE LENGTH)))
(%PUT (QUOTE MAKE-SEQUENCE-OF-TYPE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE MAKE-SEQUENCE-OF-TYPE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE ELT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the element of SEQUENCE specified by INDEX."))
#_(LAP #0_ELT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0 "~S: index too small." "~S: index too large.")
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(CALL LISTP 1)
(JUMPE O1 3)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -1 Q)
(CALL < 2)
(JUMPE O1 5)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 1))
(CALL ERROR 2)
(JRST 6)
(LABEL 5) (MOVE O5 -1 Q)
(MOVEM O5 0 Q)
(LABEL 11) (MOVE O1 0 Q)
(CALL ZEROP 1)
(JUMPE O1 12)
(MOVE O1 -2 Q)
(MOVE O1 0 O1)
(MOVEI N 1)
(JRST 7)
(LABEL 12) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 14)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 2))
(CALL ERROR 2)
(JRST 15)
(LABEL 14) (MOVE O1 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(LABEL 15) (MOVE O1 0 Q)
(CALL 1- 1)
(MOVEM O1 0 Q)
(JRST 11)
(LABEL 7)
(LABEL 6) (JRST 4)
(LABEL 3) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL AREF 2)
(LABEL 4) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE ELT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE INDEX)))
(%PUT (QUOTE ELT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE ELT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE %SETELT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Store NEWVAL as the component of SEQUENCE specified by INDEX."))
#_(LAP #0_%SETELT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY))
#0_(0 "~S: index too small." "~S: index too large.")
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVEM O3 -2 Q)
(CALL LISTP 1)
(JUMPE O1 3)
(MOVE O2 (CONSTANT 0))
(MOVE O1 -3 Q)
(CALL < 2)
(JUMPE O1 5)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 1))
(CALL ERROR 2)
(JRST 6)
(LABEL 5) (MOVE O5 -3 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -4 Q)
(MOVEM O5 0 Q)
(LABEL 11) (MOVE O1 -1 Q)
(CALL ZEROP 1)
(JUMPE O1 12)
(MOVE O2 -2 Q)
(MOVE O1 0 Q)
(CALL RPLACA 2)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 7)
(LABEL 12) (MOVE O1 0 Q)
(MOVE O1 1 O1)
(CALL ATOM 1)
(JUMPE O1 14)
(MOVE O2 -3 Q)
(MOVE O1 (CONSTANT 2))
(CALL ERROR 2)
(JRST 15)
(LABEL 14) (MOVE O1 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 0 Q)
(LABEL 15) (MOVE O1 -1 Q)
(CALL 1- 1)
(MOVEM O1 -1 Q)
(JRST 11)
(LABEL 7)
(LABEL 6) (JRST 4)
(LABEL 3) (MOVE O3 -2 Q)
(MOVE O1 -4 Q)
(MOVE O2 -3 Q)
(CALL LISP::%ASET 3)
(LABEL 4) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE %SETELT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE INDEX NEWVAL)))
(%PUT (QUOTE %SETELT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE %SETELT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE LENGTH) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns an integer that is the length of SEQUENCE."))
#_(LAP #0_LENGTH 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)
(CALL LISTP 1)
(JUMPE O1 3)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 0 Q)
(LABEL 9) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 10)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 5)
(LABEL 10) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(JRST 9)
(LABEL 5) (JRST 4)
(LABEL 3) (MOVE O1 -1 Q)
(CALL LISP::%SP-GET-VECTOR-LENGTH 1)
(LABEL 4) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE LENGTH) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE LENGTH) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LENGTH) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-LENGTH* 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 O5 (CONSTANT 0))
(MOVEM O5 0 Q)
(LABEL 7) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(MOVE O1 0 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(JRST 7)
(LABEL 3) (SUBI Q 2)
(POPJ P)
)
(%PUT (QUOTE LIST-LENGTH*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE LIST-LENGTH*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-LENGTH*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MAKE-SEQUENCE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the given Type and Length, with elements initialized
to :Initial-Element."))
#_(LAP #0_MAKE-SEQUENCE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:INITIAL-ELEMENT (:INITIAL-ELEMENT) LIST (SIMPLE-STRING STRING) :TEST EQL 0 (ARRAY VECTOR SIMPLE-ARRAY SIMPLE-VECTOR) :ELEMENT-TYPE (BIT-VECTOR SIMPLE-BIT-VECTOR) (MOD 2) "~S is a bad type specifier for sequences.")
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(MOVEM O3 -4 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -7 Q)
(MOVE O5 -4 Q)
(MOVEM O5 -3 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -6 Q)
(CALL ATOM 1)
(JUMPE O1 10)
(MOVE O5 -6 Q)
(MOVEM O5 -2 Q)
(JRST 11)
(LABEL 10) (MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(LABEL 11) (MOVE O2 (CONSTANT 2))
(CAME O2 -2 Q)
(JRST 13)
(MOVE O3 -7 Q)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 0))
(CALL MAKE-LIST 3)
(JRST 12)
(LABEL 13) (MOVE O4 (CONSTANT 5))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O3 (CONSTANT 4))
(CALL MEMBER 4)
(JUMPE O1 14)
(SKIPN NIL -7 Q)
(JRST 15)
(MOVE O5 (CONSTANT 6))
(MOVEM O5 -1 Q)
(MOVE O1 -5 Q)
(CALL LISP::%SP-ALLOC-STRING 1)
(MOVEM O1 0 Q)
(LABEL 21) (MOVE O2 -5 Q)
(MOVE O1 -1 Q)
(CALL = 2)
(JUMPE O1 22)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 17)
(LABEL 22) (MOVE O3 -7 Q)
(MOVE O1 0 Q)
(MOVE O2 -1 Q)
(CALL LISP::%CHARSET 3)
(MOVE O1 -1 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(JRST 21)
(LABEL 17) (JRST 16)
(LABEL 15) (MOVE O1 -5 Q)
(CALL LISP::%SP-ALLOC-STRING 1)
(LABEL 16) (JRST 12)
(LABEL 14) (MOVE O4 (CONSTANT 5))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 7))
(MOVE O3 (CONSTANT 4))
(CALL MEMBER 4)
(JUMPE O1 24)
(MOVE O1 -6 Q)
(CALL LISTP 1)
(JUMPE O1 25)
(MOVE O1 -6 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O5 -7 Q)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O3 0 Q)
(MOVE O4 (CONSTANT 0))
(CALL MAKE-ARRAY 5)
(JRST 26)
(LABEL 25) (MOVE O2 -7 Q)
(MOVE O1 -5 Q)
(CALL LISP::%SP-ALLOC-B-VECTOR 2)
(LABEL 26) (JRST 12)
(LABEL 24) (MOVE O4 (CONSTANT 5))
(MOVE O1 -2 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O3 (CONSTANT 4))
(CALL MEMBER 4)
(JUMPE O1 27)
(MOVE O5 -7 Q)
(MOVE O1 -5 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O3 (CONSTANT 10))
(MOVE O4 (CONSTANT 0))
(CALL MAKE-ARRAY 5)
(JRST 12)
(LABEL 27) (SKIPA)
(JRST 28)
(MOVE O2 -6 Q)
(MOVE O1 (CONSTANT 11))
(CALL ERROR 2)
(LABEL 28)
(LABEL 12) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE MAKE-SEQUENCE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TYPE LENGTH &KEY INITIAL-ELEMENT)))
(%PUT (QUOTE MAKE-SEQUENCE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE MAKE-SEQUENCE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-SUBSEQ* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2 2-MANY 2-MANY 2-MANY))
#0_(0)
(CODE-START)
(LABEL 1) (MOVE O3 NIL)
(LABEL 2) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(SKIPE NIL -5 Q)
(JRST 5)
(MOVE O1 -7 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(LABEL 5) (MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -3 Q)
(MOVE O1 -7 Q)
(CALL TYPE-OF 1)
(MOVEM O1 -1 Q)
(MOVE O2 -6 Q)
(MOVE O1 -5 Q)
(CALL - 2)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -2 Q)
(LABEL 11) (MOVE O2 -5 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 12)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 7)
(LABEL 12) (MOVE O2 -4 Q)
(MOVE O1 -7 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -2 Q)
(MOVE O2 -3 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 0 Q)
(MOVEM O1 -3 Q)
(JRST 11)
(LABEL 7) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE VECTOR-SUBSEQ*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE START &OPTIONAL END)))
(%PUT (QUOTE VECTOR-SUBSEQ*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-SUBSEQ*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-SUBSEQ* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (MOVE O3 NIL)
(LABEL 2) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(SKIPN NIL -8 Q)
(JRST 6)
(MOVE O2 -8 Q)
(MOVE O1 -9 Q)
(CALL < 2)
(SKIPE NIL O1)
(LABEL 6) (JRST 4)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 5)
(LABEL 4) (MOVE O2 -10 Q)
(MOVE O1 -9 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVEM O1 -6 Q)
(SKIPN NIL -7 Q)
(JRST 8)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(LABEL 14) (MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPN1 O1 17)
(SKIPN NIL -8 Q)
(JRST 18)
(MOVE O2 -8 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 18)
(LABEL 17) (JRST 15)
(MOVE O1 -6 Q)
(MOVEI N 1)
(JRST 10)
(LABEL 15) (MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL RPLACD 2)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 0 Q)
(MOVEM O1 -3 Q)
(JRST 14)
(LABEL 10) (JRST 9)
(LABEL 8) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 9)
(LABEL 5) (SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE LIST-SUBSEQ*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE START &OPTIONAL END)))
(%PUT (QUOTE LIST-SUBSEQ*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-SUBSEQ*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SUBSEQ) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a copy of a subsequence of SEQUENCE starting with element number
START and continuing to the end of SEQUENCE or the optional END."))
#_(LAP #0_SUBSEQ EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (MOVE O3 NIL)
(LABEL 2) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(MOVEM O3 0 Q)
(CALL LISTP 1)
(JUMPE O1 4)
(MOVE O3 0 Q)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL LISP::LIST-SUBSEQ* 3)
(JRST 5)
(LABEL 4) (MOVE O3 0 Q)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL LISP::VECTOR-SUBSEQ* 3)
(LABEL 5) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE SUBSEQ) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE START &OPTIONAL END)))
(%PUT (QUOTE SUBSEQ) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE SUBSEQ) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COPY-SEQ) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."))
#_(LAP #0_COPY-SEQ EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL LISTP 1)
(JUMPE O1 3)
(MOVE O1 0 Q)
(CALL LISP::LIST-COPY-SEQ* 1)
(JRST 4)
(LABEL 3) (MOVE O1 0 Q)
(CALL LISP::VECTOR-COPY-SEQ* 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE COPY-SEQ) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE COPY-SEQ) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE COPY-SEQ) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-COPY-SEQ* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(CALL ATOM 1)
(JUMPE O1 3)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 4)
(LABEL 3) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(LABEL 9) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 10)
(SKIPN NIL -4 Q)
(JRST 13)
(MOVE O2 -4 Q)
(MOVE O1 -3 Q)
(CALL RPLACD 2)
(LABEL 13) (MOVE O1 -6 Q)
(MOVEI N 1)
(JRST 5)
(LABEL 10) (MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 NIL)
(MOVE O1 O5)
(CALL CONS 2)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL RPLACD 2)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 9)
(LABEL 5)
(LABEL 4) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE LIST-COPY-SEQ*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE LIST-COPY-SEQ*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-COPY-SEQ*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-COPY-SEQ* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(CALL LENGTH 1)
(MOVEM O1 -3 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(CALL TYPE-OF 1)
(MOVEM O1 0 Q)
(MOVE O2 -3 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -1 Q)
(LABEL 7) (MOVE O2 -3 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 -2 Q)
(MOVE O1 -4 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -1 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE VECTOR-COPY-SEQ*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE VECTOR-COPY-SEQ*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-COPY-SEQ*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-FILL* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVEM O4 -4 Q)
(SKIPE NIL -4 Q)
(JRST 3)
(MOVE O1 -7 Q)
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(LABEL 3) (MOVE O2 -7 Q)
(MOVE O1 -5 Q)
(CALL NTHCDR 2)
(MOVEM O1 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 9) (MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPN1 O1 12)
(MOVE O2 -4 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 12) (JRST 10)
(MOVE O1 -7 Q)
(MOVEI N 1)
(JRST 5)
(LABEL 10) (MOVE O2 -6 Q)
(MOVE O1 -3 Q)
(CALL RPLACA 2)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 9)
(LABEL 5) (SUBI Q 8)
(POPJ P)
)
(%PUT (QUOTE LIST-FILL*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE ITEM START END)))
(%PUT (QUOTE LIST-FILL*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-FILL*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-FILL* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVEM O3 -2 Q)
(MOVEM O4 -1 Q)
(SKIPE NIL -1 Q)
(JRST 4)
(MOVE O1 -4 Q)
(CALL LENGTH 1)
(MOVEM O1 -1 Q)
(LABEL 4) (MOVE O5 -2 Q)
(MOVEM O5 0 Q)
(LABEL 10) (MOVE O2 -1 Q)
(MOVE O1 0 Q)
(CALL = 2)
(JUMPE O1 11)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 6)
(LABEL 11) (MOVE O3 -3 Q)
(MOVE O1 -4 Q)
(MOVE O2 0 Q)
(CALL LISP::%ASET 3)
(MOVE O1 0 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(JRST 10)
(LABEL 6) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE VECTOR-FILL*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE ITEM START END)))
(%PUT (QUOTE VECTOR-FILL*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-FILL*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FILL) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Replace the specified elements of SEQUENCE with ITEM."))
#_(LAP #0_FILL EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:START 0 :END (:END :START))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -3 Q)
(MOVEM O2 -2 Q)
(MOVEM O3 -1 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 0))
(JRST 7)
(JUMPN O2 8)
(MOVE O1 (CONSTANT 1))
(LABEL 7) (MOVEM O1 -5 Q)
(MOVE O2 -1 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 2))
(JUMPN O4 10)
(MOVEM O1 -4 Q)
(MOVE O5 -1 Q)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 3))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -3 Q)
(CALL LISTP 1)
(JUMPE O1 12)
(MOVE O4 -4 Q)
(MOVE O1 -3 Q)
(MOVE O2 -2 Q)
(MOVE O3 -5 Q)
(CALL LISP::LIST-FILL* 4)
(JRST 13)
(LABEL 12) (MOVE O4 -4 Q)
(MOVE O1 -3 Q)
(MOVE O2 -2 Q)
(MOVE O3 -5 Q)
(CALL LISP::VECTOR-FILL* 4)
(LABEL 13) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE FILL) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE ITEM &KEY (START 0) END)))
(%PUT (QUOTE FILL) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE FILL) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-REPLACE-FROM-LIST* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 13)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVEM O4 -9 Q)
(MOVEM O5 -8 Q)
(SKIPE NIL -9 Q)
(JRST 4)
(MOVE O1 -12 Q)
(CALL LENGTH 1)
(MOVEM O1 -9 Q)
(LABEL 4) (SKIPE NIL -13 Q)
(JRST 7)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -13 Q)
(LABEL 7) (MOVE O2 -11 Q)
(CAME O2 -12 Q)
(JRST 11)
(MOVE O2 -8 Q)
(MOVE O1 -10 Q)
(CALL > 2)
(SKIPN NIL O1)
(LABEL 11) (JRST 9)
(MOVE O2 -8 Q)
(MOVE O1 -13 Q)
(CALL - 2)
(MOVEM O1 -2 Q)
(MOVE O2 -10 Q)
(MOVE O1 -9 Q)
(CALL - 2)
(MOVEM O1 -1 Q)
(MOVE O2 -2 Q)
(CALL < 2)
(JUMPE O1 13)
(MOVE O2 -1 Q)
(JRST 14)
(LABEL 13) (MOVE O2 -2 Q)
(LABEL 14) (MOVE O1 -8 Q)
(CALL + 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -8 Q)
(CALL SUBSEQ 3)
(MOVEM O1 -7 Q)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVE O2 -12 Q)
(MOVE O1 -10 Q)
(CALL NTHCDR 2)
(MOVEM O1 -4 Q)
(LABEL 19) (SKIPE NIL -5 Q)
(JRST 20)
(MOVE O1 -12 Q)
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 -4 Q)
(CALL RPLACA 2)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVEM O1 -4 Q)
(JRST 19)
(LABEL 15) (JRST 10)
(LABEL 9) (MOVE O5 -10 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -12 Q)
(MOVE O1 -10 Q)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(MOVE O2 -11 Q)
(MOVE O1 -8 Q)
(CALL NTHCDR 2)
(MOVEM O1 -4 Q)
(LABEL 26) (MOVE O2 -9 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPN1 O1 29)
(MOVE O2 -13 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 29)
(SKIPN NIL -5 Q)
(JRST1 29)
(SKIPE NIL -4 Q)
(LABEL 29) (JRST 27)
(MOVE O1 -12 Q)
(MOVEI N 1)
(JRST 22)
(LABEL 27) (MOVE O1 -4 Q)
(MOVE O2 0 O1)
(MOVE O1 -5 Q)
(CALL RPLACA 2)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVEM O1 -4 Q)
(JRST 26)
(LABEL 22)
(LABEL 10) (SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE LIST-REPLACE-FROM-LIST*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TARGET-SEQUENCE SOURCE-SEQUENCE TARGET-START TARGET-END SOURCE-START SOURCE-END)))
(%PUT (QUOTE LIST-REPLACE-FROM-LIST*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-REPLACE-FROM-LIST*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-REPLACE-FROM-VECTOR* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVEM O4 -7 Q)
(MOVEM O5 -6 Q)
(SKIPE NIL -7 Q)
(JRST 4)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(LABEL 4) (SKIPE NIL -11 Q)
(JRST 7)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(MOVEM O1 -11 Q)
(LABEL 7) (MOVE O5 -8 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O2 -10 Q)
(MOVE O1 -8 Q)
(CALL NTHCDR 2)
(MOVEM O1 -3 Q)
(LABEL 13) (MOVE O2 -7 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 16)
(MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPN1 O1 16)
(SKIPE NIL -3 Q)
(LABEL 16) (JRST 14)
(MOVE O1 -10 Q)
(MOVEI N 1)
(JRST 9)
(LABEL 14) (MOVE O2 -4 Q)
(MOVE O1 -9 Q)
(CALL AREF 2)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL RPLACA 2)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 13)
(LABEL 9) (SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE LIST-REPLACE-FROM-VECTOR*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TARGET-SEQUENCE SOURCE-SEQUENCE TARGET-START TARGET-END SOURCE-START SOURCE-END)))
(%PUT (QUOTE LIST-REPLACE-FROM-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-REPLACE-FROM-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-REPLACE-FROM-LIST* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVEM O4 -7 Q)
(MOVEM O5 -6 Q)
(SKIPE NIL -7 Q)
(JRST 4)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(LABEL 4) (SKIPE NIL -11 Q)
(JRST 7)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(MOVEM O1 -11 Q)
(LABEL 7) (MOVE O5 -8 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O2 -9 Q)
(MOVE O1 O5)
(CALL NTHCDR 2)
(MOVEM O1 -3 Q)
(LABEL 13) (MOVE O2 -7 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 16)
(MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPN1 O1 16)
(SKIPE NIL -3 Q)
(LABEL 16) (JRST 14)
(MOVE O1 -10 Q)
(MOVEI N 1)
(JRST 9)
(LABEL 14) (MOVE O1 -3 Q)
(MOVE O3 0 O1)
(MOVE O1 -10 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 13)
(LABEL 9) (SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE VECTOR-REPLACE-FROM-LIST*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TARGET-SEQUENCE SOURCE-SEQUENCE TARGET-START TARGET-END SOURCE-START SOURCE-END)))
(%PUT (QUOTE VECTOR-REPLACE-FROM-LIST*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-REPLACE-FROM-LIST*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-REPLACE-FROM-VECTOR* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(-1)
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVEM O4 -7 Q)
(MOVEM O5 -6 Q)
(SKIPE NIL -7 Q)
(JRST 4)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(LABEL 4) (SKIPE NIL -11 Q)
(JRST 7)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(MOVEM O1 -11 Q)
(LABEL 7) (MOVE O2 -9 Q)
(CAME O2 -10 Q)
(JRST 11)
(MOVE O2 -6 Q)
(MOVE O1 -8 Q)
(CALL > 2)
(SKIPN NIL O1)
(LABEL 11) (JRST 9)
(MOVE O2 -6 Q)
(MOVE O1 -11 Q)
(CALL - 2)
(MOVEM O1 -3 Q)
(MOVE O2 -8 Q)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 -2 Q)
(MOVE O2 -3 Q)
(CALL < 2)
(JUMPE O1 13)
(MOVE O5 -2 Q)
(MOVEM O5 -5 Q)
(JRST 14)
(LABEL 13) (MOVE O5 -3 Q)
(MOVEM O5 -5 Q)
(LABEL 14) (MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(CALL + 2)
(MOVEM O1 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -6 Q)
(CALL + 2)
(MOVEM O1 -1 Q)
(MOVE O2 (CONSTANT 0))
(CALL + 2)
(MOVEM O1 -2 Q)
(LABEL 19) (MOVE O1 -8 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 20)
(MOVE O1 -10 Q)
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE O2 -2 Q)
(MOVE O1 -9 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -10 Q)
(MOVE O2 -3 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1- 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1- 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 19)
(LABEL 15) (JRST 10)
(LABEL 9) (MOVE O5 -8 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(LABEL 26) (MOVE O2 -7 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 29)
(MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 29) (JRST 27)
(MOVE O1 -10 Q)
(MOVEI N 1)
(JRST 22)
(LABEL 27) (MOVE O2 -4 Q)
(MOVE O1 -9 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -10 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 26)
(LABEL 22)
(LABEL 10) (SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE VECTOR-REPLACE-FROM-VECTOR*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TARGET-SEQUENCE SOURCE-SEQUENCE TARGET-START TARGET-END SOURCE-START SOURCE-END)))
(%PUT (QUOTE VECTOR-REPLACE-FROM-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-REPLACE-FROM-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE REPLACE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "The target sequence is destructively modified by copying successive
elements into it from the source sequence."))
#_(LAP #0_REPLACE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:START1 0 :END1 :START2 :END2 (:END2 :START2 :END1 :START1) -1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 0))
(JRST 7)
(JUMPN O2 8)
(MOVE O1 (CONSTANT 1))
(LABEL 7) (MOVEM O1 -15 Q)
(MOVE O2 -9 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 2))
(JUMPN O4 10)
(MOVEM O1 -14 Q)
(MOVE O2 -9 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 (CONSTANT 1))
(LABEL 11) (MOVEM O1 -13 Q)
(MOVE O2 -9 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 4))
(JUMPN O4 14)
(MOVEM O1 -12 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O2 (CONSTANT 5))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(SKIPE NIL -14 Q)
(JRST 17)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -14 Q)
(LABEL 17) (SKIPE NIL -12 Q)
(JRST 20)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -12 Q)
(LABEL 20) (MOVE O1 -11 Q)
(CALL LISTP 1)
(JUMPE O1 22)
(MOVE O1 -10 Q)
(CALL LISTP 1)
(JUMPE O1 24)
(MOVE O2 -10 Q)
(CAME O2 -11 Q)
(JRST 28)
(MOVE O2 -13 Q)
(MOVE O1 -15 Q)
(CALL > 2)
(SKIPN NIL O1)
(LABEL 28) (JRST 26)
(MOVE O2 -13 Q)
(MOVE O1 -12 Q)
(CALL - 2)
(MOVEM O1 -2 Q)
(MOVE O2 -15 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -1 Q)
(MOVE O2 -2 Q)
(CALL < 2)
(JUMPE O1 30)
(MOVE O2 -1 Q)
(JRST 31)
(LABEL 30) (MOVE O2 -2 Q)
(LABEL 31) (MOVE O1 -13 Q)
(CALL + 2)
(MOVE O3 O1)
(MOVE O1 -10 Q)
(MOVE O2 -13 Q)
(CALL SUBSEQ 3)
(MOVEM O1 -7 Q)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVE O2 -11 Q)
(MOVE O1 -15 Q)
(CALL NTHCDR 2)
(MOVEM O1 -4 Q)
(LABEL 36) (SKIPE NIL -5 Q)
(JRST 37)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 32)
(LABEL 37) (MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 -4 Q)
(CALL RPLACA 2)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVEM O1 -4 Q)
(JRST 36)
(LABEL 32) (JRST 27)
(LABEL 26) (MOVE O5 -15 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -11 Q)
(MOVE O1 -15 Q)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(MOVE O2 -10 Q)
(MOVE O1 -13 Q)
(CALL NTHCDR 2)
(MOVEM O1 -4 Q)
(LABEL 43) (MOVE O2 -14 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPN1 O1 46)
(MOVE O2 -12 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 46)
(SKIPN NIL -5 Q)
(JRST1 46)
(SKIPE NIL -4 Q)
(LABEL 46) (JRST 44)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 39)
(LABEL 44) (MOVE O1 -4 Q)
(MOVE O2 0 O1)
(MOVE O1 -5 Q)
(CALL RPLACA 2)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVEM O1 -4 Q)
(JRST 43)
(LABEL 39)
(LABEL 27) (JRST 25)
(LABEL 24) (MOVE O5 -15 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -11 Q)
(MOVE O1 -15 Q)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(LABEL 51) (MOVE O2 -14 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPN1 O1 54)
(MOVE O2 -12 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 54)
(SKIPE NIL -5 Q)
(LABEL 54) (JRST 52)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 47)
(LABEL 52) (MOVE O2 -6 Q)
(MOVE O1 -10 Q)
(CALL AREF 2)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL RPLACA 2)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(JRST 51)
(LABEL 47)
(LABEL 25) (JRST 23)
(LABEL 22) (MOVE O1 -10 Q)
(CALL LISTP 1)
(JUMPE O1 55)
(MOVE O5 -15 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -10 Q)
(MOVE O1 O5)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(LABEL 61) (MOVE O2 -14 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPN1 O1 64)
(MOVE O2 -12 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 64)
(SKIPE NIL -5 Q)
(LABEL 64) (JRST 62)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 57)
(LABEL 62) (MOVE O1 -5 Q)
(MOVE O3 0 O1)
(MOVE O1 -11 Q)
(MOVE O2 -7 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(JRST 61)
(LABEL 57) (JRST 56)
(LABEL 55) (MOVE O2 -10 Q)
(CAME O2 -11 Q)
(JRST 67)
(MOVE O2 -13 Q)
(MOVE O1 -15 Q)
(CALL > 2)
(SKIPN NIL O1)
(LABEL 67) (JRST 65)
(MOVE O2 -13 Q)
(MOVE O1 -12 Q)
(CALL - 2)
(MOVEM O1 -5 Q)
(MOVE O2 -15 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -4 Q)
(MOVE O2 -5 Q)
(CALL < 2)
(JUMPE O1 69)
(MOVE O5 -4 Q)
(MOVEM O5 -7 Q)
(JRST 70)
(LABEL 69) (MOVE O5 -5 Q)
(MOVEM O5 -7 Q)
(LABEL 70) (MOVE O2 -7 Q)
(MOVE O1 -15 Q)
(CALL + 2)
(MOVEM O1 -4 Q)
(MOVE O2 (CONSTANT 6))
(CALL + 2)
(MOVEM O1 -5 Q)
(MOVE O2 -7 Q)
(MOVE O1 -13 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(MOVE O2 (CONSTANT 6))
(CALL + 2)
(MOVEM O1 -4 Q)
(LABEL 75) (MOVE O1 -15 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 76)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 71)
(LABEL 76) (MOVE O2 -4 Q)
(MOVE O1 -10 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -5 Q)
(CALL 1- 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(CALL 1- 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 75)
(LABEL 71) (JRST 66)
(LABEL 65) (MOVE O5 -15 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -6 Q)
(LABEL 82) (MOVE O2 -14 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPN1 O1 85)
(MOVE O2 -12 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 85) (JRST 83)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 78)
(LABEL 83) (MOVE O2 -6 Q)
(MOVE O1 -10 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -7 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -7 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(JRST 82)
(LABEL 78)
(LABEL 66)
(LABEL 56)
(LABEL 23) (SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE REPLACE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TARGET-SEQUENCE SOURCE-SEQUENCE &KEY ((:START1 TARGET-START) 0) ((:END1 TARGET-END)) ((:START2 SOURCE-START) 0) ((:END2 SOURCE-END)))))
(%PUT (QUOTE REPLACE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE REPLACE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE REVERSE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a new sequence containing the same elements but in reverse order."))
#_(LAP #0_REVERSE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL LISTP 1)
(JUMPE O1 3)
(MOVE O1 0 Q)
(CALL LISP::LIST-REVERSE* 1)
(JRST 4)
(LABEL 3) (MOVE O1 0 Q)
(CALL LISP::VECTOR-REVERSE* 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE REVERSE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE REVERSE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE REVERSE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-REVERSE* 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)
(MOVEM NIL -1 Q)
(LABEL 7) (MOVE O1 -2 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O2 -1 Q)
(MOVE O1 O5)
(CALL CONS 2)
(MOVEM O1 -1 Q)
(JRST 7)
(LABEL 3) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE LIST-REVERSE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE LIST-REVERSE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-REVERSE*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-REVERSE* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -4 Q)
(CALL 1- 1)
(MOVEM O1 -3 Q)
(MOVE O1 -6 Q)
(CALL TYPE-OF 1)
(MOVEM O1 -1 Q)
(MOVE O2 -5 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -2 Q)
(LABEL 7) (MOVE O2 -5 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -2 Q)
(MOVE O2 -4 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(CALL 1- 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 0 Q)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE VECTOR-REVERSE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE VECTOR-REVERSE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-REVERSE*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-NREVERSE* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O5 O1)
(MOVEM O5 -4 Q)
(MOVE O5 NIL)
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O1 -4 Q)
(CALL ATOM 1)
(JUMPE O1 8)
(MOVE O1 -3 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL RPLACD 2)
(MOVE O1 -5 Q)
(CALL ATOM 1)
(JUMPE O1 10)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(JRST 11)
(LABEL 10) (MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(LABEL 11) (MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -4 Q)
(MOVEM O5 0 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE LIST-NREVERSE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE LIST-NREVERSE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-NREVERSE*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-NREVERSE* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0 2)
(CODE-START)
(LABEL 1) (ADDI Q 12)
(MOVEM O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -10 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -9 Q)
(CALL 1- 1)
(MOVEM O1 -8 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -10 Q)
(CALL TRUNCATE 2)
(MOVEM O1 -7 Q)
(LABEL 7) (MOVE O2 -7 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O5 -11 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(MOVE O2 O5)
(MOVE O1 -5 Q)
(CALL AREF 2)
(MOVEM O1 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -1 Q)
(MOVE O2 O5)
(MOVE O1 -2 Q)
(CALL AREF 2)
(MOVEM O1 0 Q)
(MOVE O3 O1)
(MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(CALL LISP::%ASET 3)
(MOVE O3 -3 Q)
(MOVE O1 -2 Q)
(MOVE O2 -1 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -8 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -9 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -8 Q)
(JRST 7)
(LABEL 3) (SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE VECTOR-NREVERSE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE VECTOR-NREVERSE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-NREVERSE*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NREVERSE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the same elements in reverse order; the argument
is destroyed."))
#_(LAP #0_NREVERSE EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL LISTP 1)
(JUMPE O1 3)
(MOVE O1 0 Q)
(CALL LISP::LIST-NREVERSE* 1)
(JRST 4)
(LABEL 3) (MOVE O1 0 Q)
(CALL LISP::VECTOR-NREVERSE* 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
(%PUT (QUOTE NREVERSE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE)))
(%PUT (QUOTE NREVERSE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NREVERSE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE CONCATENATE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a new sequence of all the argument sequences concatenated together
which shares no structure with the original argument sequences of the
specified OUTPUT-TYPE-SPEC."))
#_(LAP #0_CONCATENATE EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(LIST CONCAT-TO-LIST* (SIMPLE-VECTOR SIMPLE-STRING SIMPLE-BIT-VECTOR SIMPLE-ARRAY VECTOR STRING BIT-VECTOR ARRAY) :TEST EQL CONCAT-TO-SIMPLE* "~S: invalid output type specification.")
(CODE-START)
(LABEL 2) (MOVE O2 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST2)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST3)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST4)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST5)
(JRST 1)
(LABEL 7) (MOVEI W2 1)
(ICALL RESTX)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVEM O2 -1 Q)
(CALL ATOM 1)
(JUMPE O1 9)
(MOVE O5 -2 Q)
(MOVEM O5 0 Q)
(JRST 10)
(LABEL 9) (MOVE O1 -2 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 10) (MOVE O2 (CONSTANT 0))
(CAME O2 0 Q)
(JRST 12)
(MOVE O2 -1 Q)
(MOVE O1 (CONSTANT 1))
(CALL APPLY 2)
(JRST 11)
(LABEL 12) (MOVE O4 (CONSTANT 4))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O3 (CONSTANT 3))
(CALL MEMBER 4)
(JUMPE O1 13)
(MOVE O3 -1 Q)
(MOVE O1 (CONSTANT 5))
(MOVE O2 -2 Q)
(CALL APPLY 3)
(JRST 11)
(LABEL 13) (SKIPA)
(JRST 14)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 6))
(CALL ERROR 2)
(LABEL 14)
(LABEL 11) (SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE CONCATENATE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OUTPUT-TYPE-SPEC &REST SEQUENCES)))
(%PUT (QUOTE CONCATENATE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE CONCATENATE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_CONCAT-TO-LIST* EXPR
(ENTRY-POINTS (2 3 4 5 6 7 8) REST)
#0_(0)
(CODE-START)
(LABEL 2) (MOVE O1 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST1)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST2)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST3)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST4)
(JRST 1)
(LABEL 7) (MOVEI W2 5)
(ICALL REST5)
(JRST 1)
(LABEL 8) (MOVEI W2 0)
(ICALL RESTX)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -5 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 O1)
(MOVEM O5 -3 Q)
(LABEL 14) (SKIPE NIL -4 Q)
(JRST 15)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 10)
(LABEL 15) (MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 O5)
(CALL LISTP 1)
(JUMPE O1 17)
(MOVE O5 -2 Q)
(MOVEM O5 -1 Q)
(LABEL 23) (MOVE O1 -1 Q)
(CALL ATOM 1)
(JUMPE O1 24)
(JRST 19)
(LABEL 24) (MOVE O1 -1 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(MOVE O1 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -1 Q)
(JRST 23)
(LABEL 19) (JRST 18)
(LABEL 17) (MOVE O5 (CONSTANT 0))
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL LENGTH 1)
(MOVEM O1 0 Q)
(LABEL 30) (MOVE O2 0 Q)
(MOVE O1 -1 Q)
(CALL = 2)
(JUMPE O1 31)
(JRST 26)
(LABEL 31) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL AREF 2)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -3 Q)
(MOVE O1 -1 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(JRST 30)
(LABEL 26)
(LABEL 18) (MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(JRST 14)
(LABEL 10) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE CONCAT-TO-LIST*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (&REST SEQUENCES)))
(%PUT (QUOTE CONCAT-TO-LIST*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE CONCAT-TO-LIST*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_CONCAT-TO-SIMPLE* EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(0)
(CODE-START)
(LABEL 2) (MOVE O2 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST2)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST3)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST4)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST5)
(JRST 1)
(LABEL 7) (MOVEI W2 1)
(ICALL RESTX)
(LABEL 1) (ADDI Q 12)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVE O5 O2)
(MOVEM O5 -9 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -8 Q)
(MOVEM NIL -7 Q)
(LABEL 13) (SKIPE NIL -9 Q)
(JRST 14)
(MOVE O5 -10 Q)
(MOVEM O5 -6 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -5 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -4 Q)
(MOVE O2 -8 Q)
(MOVE O1 -11 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -3 Q)
(LABEL 20) (MOVE O2 -8 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 21)
(MOVE O1 -3 Q)
(MOVEI N 1)
(JRST 16)
(LABEL 21) (MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 O5)
(CALL LISTP 1)
(JUMPE O1 23)
(MOVE O5 -1 Q)
(MOVEM O5 0 Q)
(LABEL 29) (MOVE O1 0 Q)
(CALL ATOM 1)
(JUMPE O1 30)
(JRST 25)
(LABEL 30) (MOVE O1 0 Q)
(MOVE O3 0 O1)
(MOVE O1 -3 Q)
(MOVE O2 -4 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 0 Q)
(JRST 29)
(LABEL 25) (JRST 24)
(LABEL 23) (MOVE O5 (CONSTANT 0))
(MOVEM O5 0 Q)
(LABEL 36) (MOVE O1 -5 Q)
(MOVE O2 0 O1)
(MOVE O1 0 Q)
(CALL = 2)
(JUMPE O1 37)
(JRST 32)
(LABEL 37) (MOVE O2 0 Q)
(MOVE O1 -1 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -3 Q)
(MOVE O2 -4 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 0 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(JRST 36)
(LABEL 32)
(LABEL 24) (MOVE O1 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(JRST 20)
(LABEL 16) (JRST 9)
(LABEL 14) (MOVE O1 -9 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -6 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(CALL NCONC 2)
(MOVEM O1 -7 Q)
(MOVE O2 -6 Q)
(MOVE O1 -8 Q)
(CALL + 2)
(MOVEM O1 -8 Q)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -9 Q)
(JRST 13)
(LABEL 9) (SUBI Q 12)
(POPJ P)
)
(%PUT (QUOTE CONCAT-TO-SIMPLE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TYPE &REST SEQUENCES)))
(%PUT (QUOTE CONCAT-TO-SIMPLE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE CONCAT-TO-SIMPLE*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MAP) (QUOTE %FUN-DOCUMENTATION) (QUOTE "FUNCTION must take as many arguments as there are sequences provided. The
result is a sequence such that element i is the result of applying FUNCTION
to element i of each of the argument sequences."))
#_(LAP #0_MAP-INTERNAL-113 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O6 0 O6)
(MOVEM O6 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 1 O6)
(CALL ELT 2)
(SUBI Q 2)
(POPJ P)
)
#_(LAP #0_MAP-INTERNAL-114 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O6 0 O6)
(MOVEM O6 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 1 O6)
(CALL ELT 2)
(SUBI Q 2)
(POPJ P)
)
#_(LAP #0_MAP-INTERNAL-116 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O6 0 O6)
(MOVEM O6 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 1 O6)
(CALL ELT 2)
(SUBI Q 2)
(POPJ P)
)
#_(LAP #0_MAP EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2 3 4 5) REST)
#0_((NIL) :TEST EQL 0 MAP-INTERNAL-113 2 1 LIST MAP-INTERNAL-114 (SIMPLE-VECTOR SIMPLE-ARRAY SIMPLE-STRING SIMPLE-BIT-VECTOR VECTOR ARRAY STRING BIT-VECTOR) MAP-INTERNAL-116 "~S: invalid output type specifier.")
(CODE-START)
(LABEL 2) (MOVE O4 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST4)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST5)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL RESTX)
(LABEL 1) (ADDI Q 19)
(MOVE W2 (CONSTANT 6))
(MOVE O6 NIL)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -18 Q)
(MOVEM O1 -17 Q)
(MOVEM O2 -16 Q)
(MOVEM O3 -15 Q)
(MOVEM O4 -14 Q)
(MOVE W2 (CONSTANT 6))
(MOVE O6 W3)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -13 Q)
(MOVE O2 -14 Q)
(MOVE O1 -15 Q)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE W2 (CONSTANT 6))
(MOVE O6 -13 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -11 Q)
(MOVE O1 -17 Q)
(CALL ATOM 1)
(JUMPE O1 7)
(MOVE O5 -17 Q)
(MOVEM O5 -10 Q)
(JRST 8)
(LABEL 7) (MOVE O1 -17 Q)
(MOVE O5 0 O1)
(MOVEM O5 -10 Q)
(LABEL 8) (MOVE O4 (CONSTANT 2))
(MOVE O1 -10 Q)
(MOVE O2 (CONSTANT 0))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 10)
(MOVE W2 (CONSTANT 6))
(MOVE O6 -11 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -9 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -15 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(LABEL 15) (SKIPE NIL -8 Q)
(JRST 16)
(MOVE W2 (CONSTANT 5))
(MOVE O6 -9 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -6 Q)
(MOVE O5 (CONSTANT 3))
(MOVE O6 W3)
(MOVEM O5 1 O6)
(LABEL 22) (MOVE O2 -7 Q)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL = 2)
(JUMPE O1 23)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 18)
(LABEL 23) (MOVE O1 (CONSTANT 4))
(MOVE O2 -6 Q)
(ICALL CLOGEN)
(MOVEM O1 -3 Q)
(MOVE O2 -12 Q)
(CALL MAPCAR 2)
(MOVE O2 O1)
(MOVE O1 -16 Q)
(CALL APPLY 2)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL 1+ 1)
(MOVE O6 -6 Q)
(MOVEM O1 1 O6)
(JRST 22)
(LABEL 18) (JRST 11)
(LABEL 16) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 -7 Q)
(CALL < 2)
(JUMPE O1 25)
(MOVE O1 -5 Q)
(MOVEM O1 -7 Q)
(LABEL 25) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 15)
(LABEL 11) (JRST 9)
(LABEL 10) (MOVE O2 (CONSTANT 7))
(CAME O2 -10 Q)
(JRST 27)
(MOVE W2 (CONSTANT 6))
(MOVE O6 -11 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -9 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -15 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(LABEL 32) (SKIPE NIL -8 Q)
(JRST 33)
(MOVE W2 (CONSTANT 6))
(MOVE O6 -9 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -6 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -5 Q)
(MOVE W2 (CONSTANT 5))
(MOVE O6 -6 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -4 Q)
(MOVE O5 (CONSTANT 3))
(MOVE O6 W3)
(MOVEM O5 1 O6)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 39) (MOVE O2 -7 Q)
(MOVE O6 -4 Q)
(MOVE O1 1 O6)
(CALL = 2)
(JUMPE O1 40)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 35)
(LABEL 40) (MOVE O1 (CONSTANT 8))
(MOVE O2 -4 Q)
(ICALL CLOGEN)
(MOVEM O1 0 Q)
(MOVE O2 -12 Q)
(CALL MAPCAR 2)
(MOVE O2 O1)
(MOVE O1 -16 Q)
(CALL APPLY 2)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -2 Q)
(MOVE O6 -4 Q)
(MOVE O1 1 O6)
(CALL 1+ 1)
(MOVE O6 -4 Q)
(MOVEM O1 1 O6)
(JRST 39)
(LABEL 35) (JRST 28)
(LABEL 33) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 -7 Q)
(CALL < 2)
(JUMPE O1 42)
(MOVE O1 -5 Q)
(MOVEM O1 -7 Q)
(LABEL 42) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 32)
(LABEL 28) (JRST 9)
(LABEL 27) (MOVE O4 (CONSTANT 2))
(MOVE O1 -10 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O3 (CONSTANT 1))
(CALL MEMBER 4)
(JUMPE O1 44)
(MOVE W2 (CONSTANT 6))
(MOVE O6 -11 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -9 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -15 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(LABEL 49) (SKIPE NIL -8 Q)
(JRST 50)
(MOVE W2 (CONSTANT 5))
(MOVE O6 -9 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -6 Q)
(MOVE O5 (CONSTANT 3))
(MOVE O6 W3)
(MOVEM O5 1 O6)
(MOVE O2 -7 Q)
(MOVE O1 -17 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -4 Q)
(LABEL 56) (MOVE O2 -7 Q)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL = 2)
(JUMPE O1 57)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 52)
(LABEL 57) (MOVE O1 (CONSTANT 10))
(MOVE O2 -6 Q)
(ICALL CLOGEN)
(MOVEM O1 -1 Q)
(MOVE O2 -12 Q)
(CALL MAPCAR 2)
(MOVE O2 O1)
(MOVE O1 -16 Q)
(CALL APPLY 2)
(MOVE O3 O1)
(MOVE O1 -4 Q)
(MOVE O6 -6 Q)
(MOVE O2 1 O6)
(CALL LISP::%ASET 3)
(MOVE O6 -6 Q)
(MOVE O1 1 O6)
(CALL 1+ 1)
(MOVE O6 -6 Q)
(MOVEM O1 1 O6)
(JRST 56)
(LABEL 52) (JRST 45)
(LABEL 50) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -5 Q)
(MOVE O2 -7 Q)
(CALL < 2)
(JUMPE O1 59)
(MOVE O1 -5 Q)
(MOVEM O1 -7 Q)
(LABEL 59) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 49)
(LABEL 45) (JRST 9)
(LABEL 44) (SKIPA)
(JRST 61)
(MOVE O2 -17 Q)
(MOVE O1 (CONSTANT 11))
(CALL ERROR 2)
(LABEL 61)
(LABEL 9) (SUBI Q 19)
(POPJ P)
)
(%PUT (QUOTE MAP) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OUTPUT-TYPE-SPEC FUNCTION FIRST-SEQUENCE &REST MORE-SEQUENCES)))
(%PUT (QUOTE MAP) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE MAP) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SOME) (QUOTE %FUN-DOCUMENTATION) (QUOTE "PREDICATE is applied to the elements with index 0 of the sequences, then
possibly to those with index 1, and so on. SOME returns the first
non-() value encountered, or () if the end of a sequence is reached."))
#_(LAP #0_SOME-INTERNAL-117 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O6 0 O6)
(MOVE O6 0 O6)
(MOVEM O6 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 1 O6)
(CALL ELT 2)
(SUBI Q 2)
(POPJ P)
)
#_(LAP #0_SOME EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE 0 SOME-INTERNAL-117 1 2)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 13)
(MOVE W2 (CONSTANT 3))
(MOVE O6 NIL)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -12 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE W2 (CONSTANT 3))
(MOVE O6 -12 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -9 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O2 -10 Q)
(MOVE O1 -11 Q)
(CALL CONS 2)
(MOVEM O1 -6 Q)
(LABEL 12) (SKIPE NIL -8 Q)
(JRST 13)
(MOVE W2 (CONSTANT 4))
(MOVE O6 -9 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -5 Q)
(MOVE O5 (CONSTANT 1))
(MOVE O6 W3)
(MOVEM O5 1 O6)
(LABEL 19) (MOVE O2 -7 Q)
(MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL = 2)
(JUMPE O1 20)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE W2 (CONSTANT 3))
(MOVE O6 -5 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -3 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 W3)
(ICALL CLOGEN)
(MOVEM O1 0 Q)
(MOVE O2 -6 Q)
(CALL MAPCAR 2)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL APPLY 2)
(MOVEM O1 -2 Q)
(SKIPN NIL -2 Q)
(JRST 22)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 15)
(LABEL 22) (MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL 1+ 1)
(MOVE O6 -5 Q)
(MOVEM O1 1 O6)
(JRST 19)
(LABEL 15) (JRST 8)
(LABEL 13) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(MOVE O2 -7 Q)
(CALL < 2)
(JUMPE O1 24)
(MOVE O1 -4 Q)
(MOVEM O1 -7 Q)
(LABEL 24) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 12)
(LABEL 8) (UNBIND 1)
(SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE SOME) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE FIRST-SEQUENCE &REST MORE-SEQUENCES)))
(%PUT (QUOTE SOME) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE SOME) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE EVERY) (QUOTE %FUN-DOCUMENTATION) (QUOTE "PREDICATE is applied to the elements with index 0 of the sequences, then
possibly to those with index 1, and so on. EVERY returns () as soon
as any invocation of PREDICATE returns (), or T if every invocation
is non-()."))
#_(LAP #0_EVERY-INTERNAL-118 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O6 0 O6)
(MOVE O6 0 O6)
(MOVEM O6 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 1 O6)
(CALL ELT 2)
(SUBI Q 2)
(POPJ P)
)
#_(LAP #0_EVERY EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE 0 T EVERY-INTERNAL-118 1 2)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 13)
(MOVE W2 (CONSTANT 4))
(MOVE O6 NIL)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -12 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE W2 (CONSTANT 4))
(MOVE O6 -12 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -9 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O2 -10 Q)
(MOVE O1 -11 Q)
(CALL CONS 2)
(MOVEM O1 -6 Q)
(LABEL 12) (SKIPE NIL -8 Q)
(JRST 13)
(MOVE W2 (CONSTANT 5))
(MOVE O6 -9 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -5 Q)
(MOVE O5 (CONSTANT 1))
(MOVE O6 W3)
(MOVEM O5 1 O6)
(LABEL 19) (MOVE O2 -7 Q)
(MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL = 2)
(JUMPE O1 20)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE W2 (CONSTANT 4))
(MOVE O6 -5 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -3 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 W3)
(ICALL CLOGEN)
(MOVEM O1 0 Q)
(MOVE O2 -6 Q)
(CALL MAPCAR 2)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL APPLY 2)
(MOVEM O1 -2 Q)
(SKIPE NIL -2 Q)
(JRST 22)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 15)
(LABEL 22) (MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL 1+ 1)
(MOVE O6 -5 Q)
(MOVEM O1 1 O6)
(JRST 19)
(LABEL 15) (JRST 8)
(LABEL 13) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(MOVE O2 -7 Q)
(CALL < 2)
(JUMPE O1 24)
(MOVE O1 -4 Q)
(MOVEM O1 -7 Q)
(LABEL 24) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 12)
(LABEL 8) (UNBIND 1)
(SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE EVERY) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE FIRST-SEQUENCE &REST MORE-SEQUENCES)))
(%PUT (QUOTE EVERY) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE EVERY) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NOTANY) (QUOTE %FUN-DOCUMENTATION) (QUOTE "PREDICATE is applied to the elements with index 0 of the sequences, then
possibly to those with index 1, and so on. NOTANY returns () as soon
as any invocation of PREDICATE returns a non-() value, or T if the end
of a sequence is reached."))
#_(LAP #0_NOTANY-INTERNAL-119 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O6 0 O6)
(MOVE O6 0 O6)
(MOVEM O6 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 1 O6)
(CALL ELT 2)
(SUBI Q 2)
(POPJ P)
)
#_(LAP #0_NOTANY EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE 0 T NOTANY-INTERNAL-119 1 2)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 13)
(MOVE W2 (CONSTANT 4))
(MOVE O6 NIL)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -12 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE W2 (CONSTANT 4))
(MOVE O6 -12 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -9 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O2 -10 Q)
(MOVE O1 -11 Q)
(CALL CONS 2)
(MOVEM O1 -6 Q)
(LABEL 12) (SKIPE NIL -8 Q)
(JRST 13)
(MOVE W2 (CONSTANT 5))
(MOVE O6 -9 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -5 Q)
(MOVE O5 (CONSTANT 1))
(MOVE O6 W3)
(MOVEM O5 1 O6)
(LABEL 19) (MOVE O2 -7 Q)
(MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL = 2)
(JUMPE O1 20)
(MOVE O1 (CONSTANT 2))
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE W2 (CONSTANT 4))
(MOVE O6 -5 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -3 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -1 Q)
(MOVE O1 (CONSTANT 3))
(MOVE O2 W3)
(ICALL CLOGEN)
(MOVEM O1 0 Q)
(MOVE O2 -6 Q)
(CALL MAPCAR 2)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL APPLY 2)
(MOVEM O1 -2 Q)
(SKIPN NIL -2 Q)
(JRST 22)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 15)
(LABEL 22) (MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL 1+ 1)
(MOVE O6 -5 Q)
(MOVEM O1 1 O6)
(JRST 19)
(LABEL 15) (JRST 8)
(LABEL 13) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(MOVE O2 -7 Q)
(CALL < 2)
(JUMPE O1 24)
(MOVE O1 -4 Q)
(MOVEM O1 -7 Q)
(LABEL 24) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 12)
(LABEL 8) (UNBIND 1)
(SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE NOTANY) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE FIRST-SEQUENCE &REST MORE-SEQUENCES)))
(%PUT (QUOTE NOTANY) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NOTANY) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NOTEVERY) (QUOTE %FUN-DOCUMENTATION) (QUOTE "PREDICATE is applied to the elements with index 0 of the sequences, then
possibly to those with index 1, and so on. NOTEVERY returns T as soon
as any invocation of PREDICATE returns (), or () if every invocation
is non-()."))
#_(LAP #0_NOTEVERY-INTERNAL-120 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 2)
(MOVE O6 0 O6)
(MOVE O6 0 O6)
(MOVEM O6 -1 Q)
(MOVEM O1 0 Q)
(MOVE O2 1 O6)
(CALL ELT 2)
(SUBI Q 2)
(POPJ P)
)
#_(LAP #0_NOTEVERY EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE 0 NOTEVERY-INTERNAL-120 T 1 2)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 13)
(MOVE W2 (CONSTANT 4))
(MOVE O6 NIL)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -12 Q)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE W2 (CONSTANT 4))
(MOVE O6 -12 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -9 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O2 -10 Q)
(MOVE O1 -11 Q)
(CALL CONS 2)
(MOVEM O1 -6 Q)
(LABEL 12) (SKIPE NIL -8 Q)
(JRST 13)
(MOVE W2 (CONSTANT 5))
(MOVE O6 -9 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -5 Q)
(MOVE O5 (CONSTANT 1))
(MOVE O6 W3)
(MOVEM O5 1 O6)
(LABEL 19) (MOVE O2 -7 Q)
(MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL = 2)
(JUMPE O1 20)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 15)
(LABEL 20) (MOVE W2 (CONSTANT 4))
(MOVE O6 -5 Q)
(ICALL ALLOC-CLOSURE-VECTOR)
(MOVEM W3 -3 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -1 Q)
(MOVE O1 (CONSTANT 2))
(MOVE O2 W3)
(ICALL CLOGEN)
(MOVEM O1 0 Q)
(MOVE O2 -6 Q)
(CALL MAPCAR 2)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(CALL APPLY 2)
(MOVEM O1 -2 Q)
(SKIPE NIL -2 Q)
(JRST 22)
(MOVE O1 (CONSTANT 3))
(MOVEI N 1)
(JRST 15)
(LABEL 22) (MOVE O6 -5 Q)
(MOVE O1 1 O6)
(CALL 1+ 1)
(MOVE O6 -5 Q)
(MOVEM O1 1 O6)
(JRST 19)
(LABEL 15) (JRST 8)
(LABEL 13) (MOVE O1 -8 Q)
(MOVE O1 0 O1)
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(MOVE O2 -7 Q)
(CALL < 2)
(JUMPE O1 24)
(MOVE O1 -4 Q)
(MOVEM O1 -7 Q)
(LABEL 24) (MOVE O1 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(JRST 12)
(LABEL 8) (UNBIND 1)
(SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE NOTEVERY) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE FIRST-SEQUENCE &REST MORE-SEQUENCES)))
(%PUT (QUOTE NOTEVERY) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NOTEVERY) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE REDUCE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "The specified Sequence is ``reduced'' using the given Function.
See manual for details."))
#_(LAP #0_REDUCE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :START 0 :END T :INITIAL-VALUE (:INITIAL-VALUE :END :START :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 18)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -17 Q)
(MOVE O2 -10 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -16 Q)
(MOVE O2 -10 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -15 Q)
(MOVE O5 (CONSTANT 4))
(MOVEM O5 -14 Q)
(MOVE O2 -10 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 5))
(JRST 13)
(JUMPN O2 14)
(MOVEM NIL -14 Q)
(MOVE O1 NIL)
(LABEL 13) (MOVEM O1 -13 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -9 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O2 -16 Q)
(MOVE O1 -15 Q)
(CALL = 2)
(JUMPE O1 17)
(SKIPN NIL -14 Q)
(JRST 18)
(MOVE O1 -13 Q)
(MOVEI N 1)
(JRST 19)
(LABEL 18) (MOVE O5 -12 Q)
(MOVEM O5 -9 Q)
(MOVE O6 O5)
(FCALL 0)
(LABEL 19) (JRST 16)
(LABEL 17) (MOVE O1 -11 Q)
(CALL LISTP 1)
(JUMPE O1 20)
(SKIPN NIL -17 Q)
(JRST 21)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O2 -15 Q)
(CALL - 2)
(MOVEM O1 -7 Q)
(MOVE O1 -11 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(CALL NTHCDR 2)
(MOVEM O1 -8 Q)
(SKIPN NIL -13 Q)
(JRST 24)
(MOVE O5 -16 Q)
(MOVEM O5 -6 Q)
(JRST 25)
(LABEL 24) (MOVE O1 -16 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(LABEL 25) (SKIPN NIL -13 Q)
(JRST 26)
(MOVE O5 -8 Q)
(MOVEM O5 -5 Q)
(JRST 27)
(LABEL 26) (MOVE O1 -8 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(LABEL 27) (SKIPN NIL -13 Q)
(JRST 28)
(MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(JRST 29)
(LABEL 28) (MOVE O1 -8 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 29)
(LABEL 33) (MOVE O2 -15 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 34)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 23)
(LABEL 34) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -1 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 -4 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 2)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(JRST 33)
(LABEL 23) (JRST 22)
(LABEL 21) (MOVE O2 -11 Q)
(MOVE O1 -16 Q)
(CALL NTHCDR 2)
(MOVEM O1 -8 Q)
(SKIPN NIL -13 Q)
(JRST 37)
(MOVE O5 -16 Q)
(MOVEM O5 -6 Q)
(JRST 38)
(LABEL 37) (MOVE O1 -16 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(LABEL 38) (SKIPN NIL -13 Q)
(JRST 39)
(MOVE O5 -8 Q)
(MOVEM O5 -5 Q)
(JRST 40)
(LABEL 39) (MOVE O1 -8 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(LABEL 40) (SKIPN NIL -13 Q)
(JRST 41)
(MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(JRST 42)
(LABEL 41) (MOVE O1 -8 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(LABEL 42)
(LABEL 46) (MOVE O2 -15 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 47)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 36)
(LABEL 47) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -1 Q)
(MOVE O2 0 O1)
(MOVE O1 -4 Q)
(MOVE O6 O5)
(FCALL 2)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(JRST 46)
(LABEL 36)
(LABEL 22) (JRST 16)
(LABEL 20) (SKIPA)
(JRST 49)
(SKIPN NIL -17 Q)
(JRST 50)
(MOVE O1 -11 Q)
(CALL LISP::SLISP-ARRAY-P 1)
(JUMPN O1 53)
(SKIPE NIL -13 Q)
(JRST 55)
(MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -15 Q)
(MOVE O2 O1)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -13 Q)
(LABEL 55) (MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -8 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -7 Q)
(MOVE O1 -16 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(LABEL 61) (MOVE O2 -6 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(JUMPE O1 62)
(MOVE O1 -7 Q)
(MOVEI N 1)
(JRST 57)
(LABEL 62) (MOVE O5 -12 Q)
(MOVEM O5 -5 Q)
(MOVE O2 -8 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -4 Q)
(MOVE O2 -7 Q)
(MOVE O6 -5 Q)
(FCALL 2)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1- 1)
(MOVEM O1 -8 Q)
(JRST 61)
(LABEL 57) (JRST 52)
(LABEL 53) (SKIPA)
(JRST 64)
(SKIPE NIL -14 Q)
(JRST 66)
(MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -15 Q)
(MOVE O2 O1)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -13 Q)
(LABEL 66) (MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -8 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -7 Q)
(MOVE O1 -16 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(LABEL 72) (MOVE O2 -6 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(JUMPE O1 73)
(MOVE O1 -7 Q)
(MOVEI N 1)
(JRST 68)
(LABEL 73) (MOVE O5 -12 Q)
(MOVEM O5 -5 Q)
(MOVE O2 -8 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -4 Q)
(MOVE O2 -7 Q)
(MOVE O6 -5 Q)
(FCALL 2)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1- 1)
(MOVEM O1 -8 Q)
(JRST 72)
(LABEL 68)
(LABEL 64)
(LABEL 52) (JRST 51)
(LABEL 50) (MOVE O1 -11 Q)
(CALL LISP::SLISP-ARRAY-P 1)
(JUMPN O1 77)
(SKIPE NIL -14 Q)
(JRST 79)
(MOVE O2 -16 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -13 Q)
(MOVE O1 -16 Q)
(CALL 1+ 1)
(MOVEM O1 -16 Q)
(LABEL 79) (MOVE O5 -16 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -7 Q)
(LABEL 85) (MOVE O2 -15 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(JUMPE O1 86)
(MOVE O1 -7 Q)
(MOVEI N 1)
(JRST 81)
(LABEL 86) (MOVE O5 -12 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -8 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(MOVE O6 -6 Q)
(FCALL 2)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 85)
(LABEL 81) (JRST 76)
(LABEL 77) (SKIPA)
(JRST 88)
(SKIPE NIL -14 Q)
(JRST 90)
(MOVE O2 -16 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -13 Q)
(MOVE O1 -16 Q)
(CALL 1+ 1)
(MOVEM O1 -16 Q)
(LABEL 90) (MOVE O5 -16 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -7 Q)
(LABEL 96) (MOVE O2 -15 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(JUMPE O1 97)
(MOVE O1 -7 Q)
(MOVEI N 1)
(JRST 92)
(LABEL 97) (MOVE O5 -12 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -8 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVE O2 O1)
(MOVE O1 -7 Q)
(MOVE O6 -6 Q)
(FCALL 2)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 96)
(LABEL 92)
(LABEL 88)
(LABEL 76)
(LABEL 51)
(LABEL 49)
(LABEL 16) (SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE REDUCE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (FUNCTION SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (INITIAL-VALUE NIL INIT))))
(%PUT (QUOTE REDUCE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE REDUCE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COERCE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Coerces the Object to an object of type Output-Type-Spec."))
#_(LAP #0_COERCE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(CHARACTER SHORT-FLOAT SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT FLOAT COMPLEX "Complex numbers not supported in current implementation." "~S can't be converted to type ~S." LIST (SIMPLE-STRING STRING) :TEST EQL (SIMPLE-BIT-VECTOR BIT-VECTOR) (SIMPLE-VECTOR VECTOR SIMPLE-ARRAY ARRAY) "Can't coerce ~S to type ~S." SIMPLE-STRING SIMPLE-BIT-VECTOR SIMPLE-VECTOR (VECTOR ARRAY SIMPLE-ARRAY) STRING BIT-VECTOR VECTOR "~S is an inappropriate type of object for coerce.")
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(CALL TYPEP 2)
(JUMPE O1 4)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 4) (MOVE O2 (CONSTANT 0))
(CAME O2 -3 Q)
(JRST 5)
(MOVE O1 -4 Q)
(CALL CHARACTER 1)
(JRST 3)
(LABEL 5) (MOVE O1 -4 Q)
(CALL NUMBERP 1)
(JUMPE O1 6)
(MOVE O2 (CONSTANT 1))
(CAME O2 -3 Q)
(JRST 8)
(MOVE O1 -4 Q)
(CALL LISP::%SP-SHORT-FLOAT 1)
(JRST 7)
(LABEL 8) (MOVE O2 (CONSTANT 2))
(CAME O2 -3 Q)
(JRST 9)
(MOVE O1 -4 Q)
(CALL LISP::%SP-SINGLE-FLOAT 1)
(JRST 7)
(LABEL 9) (MOVE O2 (CONSTANT 3))
(CAME O2 -3 Q)
(JRST 10)
(MOVE O1 -4 Q)
(CALL LISP::%SP-DOUBLE-FLOAT 1)
(JRST 7)
(LABEL 10) (MOVE O2 (CONSTANT 4))
(CAME O2 -3 Q)
(JRST 11)
(MOVE O1 -4 Q)
(CALL LISP::%SP-LONG-FLOAT 1)
(JRST 7)
(LABEL 11) (MOVE O2 (CONSTANT 5))
(CAME O2 -3 Q)
(JRST 12)
(MOVE O1 -4 Q)
(CALL LISP::%SP-SINGLE-FLOAT 1)
(JRST 7)
(LABEL 12) (MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 14)
(MOVE O5 -3 Q)
(MOVEM O5 -2 Q)
(JRST 15)
(LABEL 14) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(LABEL 15) (MOVE O2 (CONSTANT 6))
(CAME O2 -2 Q)
(JRST 13)
(MOVE O1 (CONSTANT 7))
(CALL ERROR 1)
(JRST 7)
(LABEL 13) (SKIPA)
(JRST 16)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 8))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 16)
(LABEL 7) (JRST 3)
(LABEL 6) (SKIPA)
(JRST 18)
(MOVE O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL TYPEP 2)
(JUMPE O1 20)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 21)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(JRST 22)
(LABEL 21) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 22) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 24)
(MOVE O1 -4 Q)
(CALL LISP::LIST-TO-STRING* 1)
(JRST 23)
(LABEL 24) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 13))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 25)
(MOVE O1 -4 Q)
(CALL LISP::LIST-TO-BIT-VECTOR* 1)
(JRST 23)
(LABEL 25) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 14))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 26)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::LIST-TO-VECTOR* 2)
(JRST 23)
(LABEL 26) (SKIPA)
(JRST 27)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 27)
(LABEL 23) (JRST 19)
(LABEL 20) (MOVE O2 (CONSTANT 16))
(MOVE O1 -1 Q)
(CALL TYPEP 2)
(JUMPE O1 29)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 30)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(JRST 31)
(LABEL 30) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 31) (MOVE O2 (CONSTANT 9))
(CAME O2 0 Q)
(JRST 33)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-LIST* 1)
(JRST 32)
(LABEL 33) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 14))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 34)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-VECTOR* 2)
(JRST 32)
(LABEL 34) (SKIPA)
(JRST 35)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 35)
(LABEL 32) (JRST 19)
(LABEL 29) (MOVE O2 (CONSTANT 17))
(MOVE O1 -1 Q)
(CALL TYPEP 2)
(JUMPE O1 37)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 38)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(JRST 39)
(LABEL 38) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 39) (MOVE O2 (CONSTANT 9))
(CAME O2 0 Q)
(JRST 41)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-LIST* 1)
(JRST 40)
(LABEL 41) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 14))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 42)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-VECTOR* 2)
(JRST 40)
(LABEL 42) (SKIPA)
(JRST 43)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 43)
(LABEL 40) (JRST 19)
(LABEL 37) (MOVE O2 (CONSTANT 18))
(MOVE O1 -1 Q)
(CALL TYPEP 2)
(JUMPE O1 45)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 46)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(JRST 47)
(LABEL 46) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 47) (MOVE O2 (CONSTANT 9))
(CAME O2 0 Q)
(JRST 49)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-LIST* 1)
(JRST 48)
(LABEL 49) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 50)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-STRING* 1)
(JRST 48)
(LABEL 50) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 13))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 51)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-BIT-VECTOR* 1)
(JRST 48)
(LABEL 51) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 19))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 52)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-VECTOR* 2)
(JRST 48)
(LABEL 52) (SKIPA)
(JRST 53)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 53)
(LABEL 48) (JRST 19)
(LABEL 45) (MOVE O2 (CONSTANT 20))
(MOVE O1 -1 Q)
(CALL TYPEP 2)
(JUMPE O1 55)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 56)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(JRST 57)
(LABEL 56) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 57) (MOVE O2 (CONSTANT 9))
(CAME O2 0 Q)
(JRST 59)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-LIST* 1)
(JRST 58)
(LABEL 59) (MOVE O2 (CONSTANT 16))
(CAME O2 0 Q)
(JRST 60)
(MOVE O1 -4 Q)
(CALL LISP::STRING-TO-SIMPLE-STRING* 1)
(JRST 58)
(LABEL 60) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 14))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 61)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-VECTOR* 2)
(JRST 58)
(LABEL 61) (SKIPA)
(JRST 62)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 62)
(LABEL 58) (JRST 19)
(LABEL 55) (MOVE O2 (CONSTANT 21))
(MOVE O1 -1 Q)
(CALL TYPEP 2)
(JUMPE O1 64)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 65)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(JRST 66)
(LABEL 65) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 66) (MOVE O2 (CONSTANT 9))
(CAME O2 0 Q)
(JRST 68)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-LIST* 1)
(JRST 67)
(LABEL 68) (MOVE O2 (CONSTANT 17))
(CAME O2 0 Q)
(JRST 69)
(MOVE O1 -4 Q)
(CALL LISP::BIT-VECTOR-TO-SIMPLE-BIT-VECTOR* 1)
(JRST 67)
(LABEL 69) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 14))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 70)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-VECTOR* 2)
(JRST 67)
(LABEL 70) (SKIPA)
(JRST 71)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 71)
(LABEL 67) (JRST 19)
(LABEL 64) (MOVE O2 (CONSTANT 22))
(MOVE O1 -1 Q)
(CALL TYPEP 2)
(JUMPE O1 73)
(MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPE O1 74)
(MOVE O5 -3 Q)
(MOVEM O5 0 Q)
(JRST 75)
(LABEL 74) (MOVE O1 -3 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(LABEL 75) (MOVE O2 (CONSTANT 9))
(CAME O2 0 Q)
(JRST 77)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-LIST* 1)
(JRST 76)
(LABEL 77) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 10))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 78)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-STRING* 1)
(JRST 76)
(LABEL 78) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 13))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 79)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-BIT-VECTOR* 1)
(JRST 76)
(LABEL 79) (MOVE O4 (CONSTANT 12))
(MOVE O1 0 Q)
(MOVE O2 (CONSTANT 14))
(MOVE O3 (CONSTANT 11))
(CALL MEMBER 4)
(JUMPE O1 80)
(MOVE O2 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::VECTOR-TO-VECTOR* 2)
(JRST 76)
(LABEL 80) (SKIPA)
(JRST 81)
(MOVE O3 -3 Q)
(MOVE O1 (CONSTANT 15))
(MOVE O2 -4 Q)
(CALL ERROR 3)
(LABEL 81)
(LABEL 76) (JRST 19)
(LABEL 73) (SKIPA)
(JRST 83)
(MOVE O2 -4 Q)
(MOVE O1 (CONSTANT 23))
(CALL ERROR 2)
(LABEL 83)
(LABEL 19)
(LABEL 18)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE COERCE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT OUTPUT-TYPE-SPEC)))
(%PUT (QUOTE COERCE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE COERCE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-TO-STRING*-INTERNAL-134 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("When coercing to a string,~%the elements of the ~
list must be of type string-char: ~S")
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL CHARACTERP 1)
(JUMPE1 O1 5)
(MOVE O1 0 Q)
(CALL STRING-CHAR-P 1)
(SKIPE NIL O1)
(LABEL 5) (JRST 3)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL ERROR 2)
(JRST 4)
(LABEL 3) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_LIST-TO-STRING* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LIST-TO-STRING*-INTERNAL-134 0)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL MAPC 2)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::LIST-LENGTH* 1)
(MOVEM O1 -2 Q)
(CALL MAKE-STRING 1)
(MOVEM O1 -1 Q)
(LABEL 7) (MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O3 O5)
(MOVE O1 -1 Q)
(MOVE O2 -3 Q)
(CALL LISP::%SCHARSET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE LIST-TO-STRING*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE LIST-TO-STRING*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-TO-STRING*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-TO-BIT-VECTOR*-INTERNAL-135 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_("When coercing to a bit-vector,~%the elements of ~
the list must be of type bit: ~S")
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL BITP 1)
(JUMPN O1 3)
(MOVE O2 0 Q)
(MOVE O1 (CONSTANT 0))
(CALL ERROR 2)
(JRST 4)
(LABEL 3) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_LIST-TO-BIT-VECTOR* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(LIST-TO-BIT-VECTOR*-INTERNAL-135 0 :ELEMENT-TYPE (MOD 2))
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL MAPC 2)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(CALL LISP::LIST-LENGTH* 1)
(MOVEM O1 -2 Q)
(MOVE O3 (CONSTANT 3))
(MOVE O2 (CONSTANT 2))
(CALL MAKE-ARRAY 3)
(MOVEM O1 -1 Q)
(LABEL 7) (MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -4 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O3 O5)
(MOVE O1 -1 Q)
(MOVE O2 -3 Q)
(CALL LISP::%SBITSET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE LIST-TO-BIT-VECTOR*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE LIST-TO-BIT-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-TO-BIT-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-TO-VECTOR* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0)
(CODE-START)
(LABEL 1) (ADDI Q 6)
(MOVEM O1 -5 Q)
(MOVEM O2 -4 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -3 Q)
(CALL LISP::LIST-LENGTH* 1)
(MOVEM O1 -2 Q)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -1 Q)
(LABEL 7) (MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 -1 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O3 O5)
(MOVE O1 -1 Q)
(MOVE O2 -3 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 6)
(POPJ P)
)
(%PUT (QUOTE LIST-TO-VECTOR*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT TYPE)))
(%PUT (QUOTE LIST-TO-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-TO-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-TO-LIST* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0)
(CODE-START)
(LABEL 1) (ADDI Q 7)
(MOVEM O1 -6 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(CALL LENGTH 1)
(MOVEM O1 -4 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 7) (MOVE O2 -4 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 -5 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(CALL AREF 2)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(CALL RPLACD 2)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 O5)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 7)
(POPJ P)
)
(%PUT (QUOTE VECTOR-TO-LIST*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE VECTOR-TO-LIST*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-TO-LIST*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-TO-VECTOR* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(0)
(CODE-START)
(LABEL 1) (ADDI Q 5)
(MOVEM O1 -4 Q)
(MOVEM O2 -3 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -2 Q)
(CALL LENGTH 1)
(MOVEM O1 -1 Q)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 0 Q)
(LABEL 7) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 8)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O2 -2 Q)
(MOVE O1 -4 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 0 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 5)
(POPJ P)
)
(%PUT (QUOTE VECTOR-TO-VECTOR*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT TYPE)))
(%PUT (QUOTE VECTOR-TO-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-TO-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-TO-STRING*-INTERNAL-136 EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 1)
(MOVEM O1 0 Q)
(CALL CHARACTERP 1)
(JUMPE O1 3)
(MOVE O1 0 Q)
(CALL STRING-CHAR-P 1)
(JRST 4)
(LABEL 3) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 4) (SUBI Q 1)
(POPJ P)
)
#_(LAP #0_VECTOR-TO-STRING* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(VECTOR-TO-STRING*-INTERNAL-136 "When coercing to a string,~%the elements of the vector ~
must be of type string-char: ~S" 0)
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL FIND-IF-NOT 2)
(MOVEM O1 -2 Q)
(SKIPN NIL -2 Q)
(JRST 3)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL ERROR 2)
(LABEL 3) (MOVE O5 (CONSTANT 2))
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(CALL LENGTH 1)
(MOVEM O1 -1 Q)
(CALL MAKE-STRING 1)
(MOVEM O1 0 Q)
(LABEL 9) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 10)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 5)
(LABEL 10) (MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 0 Q)
(MOVE O2 -2 Q)
(CALL LISP::%SCHARSET 3)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(JRST 9)
(LABEL 5) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE VECTOR-TO-STRING*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE VECTOR-TO-STRING*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-TO-STRING*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-TO-BIT-VECTOR* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(BITP "When coercing to a bit-vector,~%the elements of the ~
vector must be of type bit: ~S" 0 :ELEMENT-TYPE (MOD 2))
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 0))
(CALL FIND-IF-NOT 2)
(MOVEM O1 -2 Q)
(SKIPN NIL -2 Q)
(JRST 3)
(MOVE O2 -2 Q)
(MOVE O1 (CONSTANT 1))
(CALL ERROR 2)
(LABEL 3) (MOVE O5 (CONSTANT 2))
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(CALL LENGTH 1)
(MOVEM O1 -1 Q)
(MOVE O3 (CONSTANT 4))
(MOVE O2 (CONSTANT 3))
(CALL MAKE-ARRAY 3)
(MOVEM O1 0 Q)
(LABEL 9) (MOVE O2 -1 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 10)
(MOVE O1 0 Q)
(MOVEI N 1)
(JRST 5)
(LABEL 10) (MOVE O2 -2 Q)
(MOVE O1 -3 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 0 Q)
(MOVE O2 -2 Q)
(CALL LISP::%SBITSET 3)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(JRST 9)
(LABEL 5) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE VECTOR-TO-BIT-VECTOR*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE VECTOR-TO-BIT-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-TO-BIT-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_STRING-TO-SIMPLE-STRING* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(3 0 2)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -2 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -2 Q)
(ADDI O1 0 O2)
(MOVE O2 0 O1)
(MOVE O1 -1 Q)
(CALL + 2)
(MOVE O3 O1)
(MOVE O1 0 Q)
(MOVE O2 -1 Q)
(CALL SUBSEQ 3)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE STRING-TO-SIMPLE-STRING*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE STRING-TO-SIMPLE-STRING*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE STRING-TO-SIMPLE-STRING*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_BIT-VECTOR-TO-SIMPLE-BIT-VECTOR* EXPR
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(3 0 2)
(CODE-START)
(LABEL 1) (ADDI Q 3)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 (CONSTANT 1))
(MOVE O1 -2 Q)
(ADDI O1 0 O2)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O2 (CONSTANT 2))
(MOVE O1 -2 Q)
(ADDI O1 0 O2)
(MOVE O2 0 O1)
(MOVE O1 -1 Q)
(CALL + 2)
(MOVE O3 O1)
(MOVE O1 0 Q)
(MOVE O2 -1 Q)
(CALL SUBSEQ 3)
(SUBI Q 3)
(POPJ P)
)
(%PUT (QUOTE BIT-VECTOR-TO-SIMPLE-BIT-VECTOR*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (OBJECT)))
(%PUT (QUOTE BIT-VECTOR-TO-SIMPLE-BIT-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE BIT-VECTOR-TO-SIMPLE-BIT-VECTOR*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DELETE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence formed by destructively removing the specified Item from
the given Sequence."))
#_(LAP #0_DELETE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :TEST-NOT :TEST :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 26)
(MOVEM O1 -18 Q)
(MOVEM O2 -17 Q)
(MOVEM O3 -16 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -25 Q)
(MOVE O2 -16 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -24 Q)
(MOVE O2 -16 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 12)
(MOVEM O1 -23 Q)
(MOVE O2 -16 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -22 Q)
(MOVE O2 -16 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(LABEL 15) (MOVEM O1 -21 Q)
(MOVE O2 -16 Q)
(LABEL 18) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 17)
(JUMPN O2 18)
(MOVE O1 (CONSTANT 8))
(LABEL 17) (MOVEM O1 -20 Q)
(MOVE O2 -16 Q)
(LABEL 20) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 9))
(JRST 19)
(JUMPN O2 20)
(MOVE O1 (CONSTANT 10))
(LABEL 19) (MOVEM O1 -19 Q)
(MOVE O5 -16 Q)
(MOVEM O5 -15 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(MOVEM O1 -14 Q)
(MOVE O1 -17 Q)
(CALL LISTP 1)
(JUMPE O1 22)
(SKIPN NIL -25 Q)
(JRST 24)
(MOVE O1 -17 Q)
(CALL NREVERSE 1)
(MOVEM O1 -13 Q)
(MOVE O2 O1)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE O2 -21 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -9 Q)
(MOVE O2 -13 Q)
(CALL NTHCDR 2)
(MOVEM O1 -10 Q)
(MOVE O2 -21 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -8 Q)
(MOVE O2 -12 Q)
(CALL NTHCDR 2)
(MOVEM O1 -9 Q)
(MOVE O5 -22 Q)
(MOVEM O5 -8 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -7 Q)
(LABEL 30) (MOVE O2 -21 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(JUMPN1 O1 33)
(MOVE O2 -20 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 33) (JRST 31)
(MOVE O1 -12 Q)
(MOVE O1 1 O1)
(CALL NREVERSE 1)
(JRST 26)
(LABEL 31) (SKIPN NIL -23 Q)
(JRST 36)
(MOVE O5 -23 Q)
(MOVEM O5 -6 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -4 Q)
(MOVE O1 -10 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -6 Q)
(FCALL 2)
(JUMPN O1 37)
(JRST1 37)
(LABEL 36) (MOVE O5 -24 Q)
(MOVEM O5 -6 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -4 Q)
(MOVE O1 -10 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -6 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 37) (JRST 35)
(MOVE O1 -10 Q)
(MOVE O2 1 O1)
(MOVE O1 -9 Q)
(CALL RPLACD 2)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 34)
(LABEL 35) (SKIPA)
(JRST 38)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -9 Q)
(LABEL 38)
(LABEL 34) (MOVE O1 -10 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -10 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -8 Q)
(JRST 30)
(LABEL 26) (JRST 25)
(LABEL 24) (MOVE O2 -17 Q)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -13 Q)
(MOVE O2 -17 Q)
(MOVE O1 -22 Q)
(CALL NTHCDR 2)
(MOVEM O1 -11 Q)
(MOVE O2 -13 Q)
(MOVE O1 -22 Q)
(CALL NTHCDR 2)
(MOVEM O1 -10 Q)
(MOVE O5 -22 Q)
(MOVEM O5 -9 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -8 Q)
(LABEL 44) (MOVE O2 -21 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPN1 O1 47)
(MOVE O2 -20 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 47) (JRST 45)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 40)
(LABEL 45) (SKIPN NIL -23 Q)
(JRST 50)
(MOVE O5 -23 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -5 Q)
(MOVE O1 -11 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -7 Q)
(FCALL 2)
(JUMPN O1 51)
(JRST1 51)
(LABEL 50) (MOVE O5 -24 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -5 Q)
(MOVE O1 -11 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -7 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 51) (JRST 49)
(MOVE O1 -11 Q)
(MOVE O2 1 O1)
(MOVE O1 -10 Q)
(CALL RPLACD 2)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 48)
(LABEL 49) (SKIPA)
(JRST 52)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVEM O1 -10 Q)
(LABEL 52)
(LABEL 48) (MOVE O1 -11 Q)
(MOVE O5 1 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -11 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -9 Q)
(JRST 44)
(LABEL 40)
(LABEL 25) (JRST 23)
(LABEL 22) (SKIPN NIL -25 Q)
(JRST 54)
(MOVE O1 -21 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(MOVE O1 -22 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 60) (MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 63)
(MOVE O2 -20 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 63) (JRST 61)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -22 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -5 Q)
(LABEL 68) (SKIPN NIL -7 Q)
(JRST1 71)
(MOVE O2 -21 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 71) (JRST 69)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 76) (MOVE O2 -14 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 77)
(MOVE O2 -2 Q)
(MOVE O1 -17 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 72)
(LABEL 77) (MOVE O2 -3 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 76)
(LABEL 72) (JRST 64)
(LABEL 69) (MOVE O2 -6 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(MOVE O2 0 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 79)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 80)
(LABEL 79) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 80) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 68)
(LABEL 64) (JRST 56)
(LABEL 61) (MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVEM O1 -10 Q)
(SKIPN NIL -23 Q)
(JRST 83)
(MOVE O5 -23 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -6 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -8 Q)
(FCALL 2)
(JUMPN O1 84)
(JRST1 84)
(LABEL 83) (MOVE O5 -24 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -6 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -6 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -8 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 84) (JRST 82)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(MOVE O2 -11 Q)
(MOVE O1 -13 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(LABEL 82) (MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(JRST 60)
(LABEL 56) (JRST 55)
(LABEL 54) (MOVE O5 -22 Q)
(MOVEM O5 -13 Q)
(MOVEM O5 -12 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -11 Q)
(LABEL 90) (MOVE O2 -21 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 93)
(MOVE O2 -20 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 93) (JRST 91)
(MOVE O5 -13 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -8 Q)
(LABEL 98) (MOVE O2 -14 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPE O1 99)
(MOVE O2 -8 Q)
(MOVE O1 -17 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 94)
(LABEL 99) (MOVE O2 -9 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -8 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -9 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -8 Q)
(JRST 98)
(LABEL 94) (JRST 86)
(LABEL 91) (MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -12 Q)
(CALL LISP::%ASET 3)
(SKIPN NIL -23 Q)
(JRST 103)
(MOVE O5 -23 Q)
(MOVEM O5 -10 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -8 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -8 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -10 Q)
(FCALL 2)
(JUMPN O1 104)
(JRST1 104)
(LABEL 103) (MOVE O5 -24 Q)
(MOVEM O5 -10 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -8 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -8 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -18 Q)
(MOVE O6 -10 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 104) (JRST 101)
(MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 102)
(LABEL 101) (MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(LABEL 102) (MOVE O1 -13 Q)
(CALL 1+ 1)
(MOVEM O1 -13 Q)
(JRST 90)
(LABEL 86)
(LABEL 55)
(LABEL 23) (SUBI Q 26)
(POPJ P)
)
(%PUT (QUOTE DELETE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START 0) (END (LENGTH SEQUENCE)) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE DELETE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE DELETE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DELETE-IF) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence formed by destructively removing the elements satisfying
the specified Predicate from the given Sequence."))
#_(LAP #0_DELETE-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE :FROM-END :START 0 :KEY IDENTITY :END :COUNT 2147483647 (:COUNT :END :KEY :START :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 23)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -17 Q)
(MOVEM O3 -16 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 1))
(JUMPN O4 8)
(MOVEM O1 -22 Q)
(MOVE O2 -16 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 2))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 3))
(LABEL 9) (MOVEM O1 -21 Q)
(MOVE O2 -16 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 (CONSTANT 5))
(LABEL 11) (MOVEM O1 -20 Q)
(MOVE O2 -16 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(LABEL 13) (MOVEM O1 -19 Q)
(MOVE O2 -16 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 (CONSTANT 8))
(LABEL 15) (MOVEM O1 -18 Q)
(MOVE O5 -16 Q)
(MOVEM O5 -15 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(MOVEM O1 -14 Q)
(MOVE O1 -17 Q)
(CALL LISTP 1)
(JUMPE O1 18)
(SKIPN NIL -22 Q)
(JRST 20)
(MOVE O1 -17 Q)
(CALL NREVERSE 1)
(MOVEM O1 -13 Q)
(MOVE O2 O1)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE O2 -19 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -9 Q)
(MOVE O2 -13 Q)
(CALL NTHCDR 2)
(MOVEM O1 -10 Q)
(MOVE O2 -19 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -8 Q)
(MOVE O2 -12 Q)
(CALL NTHCDR 2)
(MOVEM O1 -9 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -8 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -7 Q)
(LABEL 26) (MOVE O2 -19 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(JUMPN1 O1 29)
(MOVE O2 -18 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 29) (JRST 27)
(MOVE O1 -12 Q)
(MOVE O1 1 O1)
(CALL NREVERSE 1)
(JRST 22)
(LABEL 27) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -6 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -5 Q)
(MOVE O1 -10 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -6 Q)
(FCALL 1)
(JUMPE O1 31)
(MOVE O1 -10 Q)
(MOVE O2 1 O1)
(MOVE O1 -9 Q)
(CALL RPLACD 2)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 30)
(LABEL 31) (SKIPA)
(JRST 32)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -9 Q)
(LABEL 32)
(LABEL 30) (MOVE O1 -10 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -10 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -8 Q)
(JRST 26)
(LABEL 22) (JRST 21)
(LABEL 20) (MOVE O2 -17 Q)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -13 Q)
(MOVE O2 -17 Q)
(MOVE O1 -21 Q)
(CALL NTHCDR 2)
(MOVEM O1 -11 Q)
(MOVE O2 -13 Q)
(MOVE O1 -21 Q)
(CALL NTHCDR 2)
(MOVEM O1 -10 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -9 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -8 Q)
(LABEL 38) (MOVE O2 -19 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPN1 O1 41)
(MOVE O2 -18 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 41) (JRST 39)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 34)
(LABEL 39) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -7 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -6 Q)
(MOVE O1 -11 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -7 Q)
(FCALL 1)
(JUMPE O1 43)
(MOVE O1 -11 Q)
(MOVE O2 1 O1)
(MOVE O1 -10 Q)
(CALL RPLACD 2)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 42)
(LABEL 43) (SKIPA)
(JRST 44)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVEM O1 -10 Q)
(LABEL 44)
(LABEL 42) (MOVE O1 -11 Q)
(MOVE O5 1 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -11 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -9 Q)
(JRST 38)
(LABEL 34)
(LABEL 21) (JRST 19)
(LABEL 18) (SKIPN NIL -22 Q)
(JRST 46)
(MOVE O1 -19 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(MOVE O1 -21 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 52) (MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 55)
(MOVE O2 -18 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 55) (JRST 53)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -5 Q)
(LABEL 60) (SKIPN NIL -7 Q)
(JRST1 63)
(MOVE O2 -19 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 63) (JRST 61)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 68) (MOVE O2 -14 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 69)
(MOVE O2 -2 Q)
(MOVE O1 -17 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 64)
(LABEL 69) (MOVE O2 -3 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 68)
(LABEL 64) (JRST 56)
(LABEL 61) (MOVE O2 -6 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(MOVE O2 0 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 71)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 72)
(LABEL 71) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 72) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 60)
(LABEL 56) (JRST 48)
(LABEL 53) (MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVEM O1 -10 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -7 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -7 Q)
(FCALL 1)
(MOVE O6 -8 Q)
(FCALL 1)
(JUMPE O1 74)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(MOVE O2 -11 Q)
(MOVE O1 -13 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(LABEL 74) (MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(JRST 52)
(LABEL 48) (JRST 47)
(LABEL 46) (MOVE O5 -21 Q)
(MOVEM O5 -13 Q)
(MOVEM O5 -12 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -11 Q)
(LABEL 80) (MOVE O2 -19 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 83)
(MOVE O2 -18 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 83) (JRST 81)
(MOVE O5 -13 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -8 Q)
(LABEL 88) (MOVE O2 -14 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPE O1 89)
(MOVE O2 -8 Q)
(MOVE O1 -17 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 84)
(LABEL 89) (MOVE O2 -9 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -8 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -9 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -8 Q)
(JRST 88)
(LABEL 84) (JRST 76)
(LABEL 81) (MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -12 Q)
(CALL LISP::%ASET 3)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -10 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -9 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -9 Q)
(FCALL 1)
(MOVE O6 -10 Q)
(FCALL 1)
(JUMPE O1 91)
(MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 92)
(LABEL 91) (MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(LABEL 92) (MOVE O1 -13 Q)
(CALL 1+ 1)
(MOVEM O1 -13 Q)
(JRST 80)
(LABEL 76)
(LABEL 47)
(LABEL 19) (UNBIND 1)
(SUBI Q 23)
(POPJ P)
)
(%PUT (QUOTE DELETE-IF) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE SEQUENCE &KEY FROM-END (START 0) (KEY (FUNCTION IDENTITY)) (END (LENGTH SEQUENCE)) (COUNT MOST-POSITIVE-FIXNUM))))
(%PUT (QUOTE DELETE-IF) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE DELETE-IF) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DELETE-IF-NOT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence formed by destructively removing the elements not
satisfying the specified Predicate from the given Sequence."))
#_(LAP #0_DELETE-IF-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE :FROM-END :START 0 :END :KEY IDENTITY :COUNT 2147483647 (:COUNT :KEY :END :START :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 23)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -17 Q)
(MOVEM O3 -16 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 1))
(JUMPN O4 8)
(MOVEM O1 -22 Q)
(MOVE O2 -16 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 2))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 3))
(LABEL 9) (MOVEM O1 -21 Q)
(MOVE O2 -16 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -20 Q)
(MOVE O2 -16 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 5))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 6))
(LABEL 13) (MOVEM O1 -19 Q)
(MOVE O2 -16 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 (CONSTANT 8))
(LABEL 15) (MOVEM O1 -18 Q)
(MOVE O5 -16 Q)
(MOVEM O5 -15 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(MOVEM O1 -14 Q)
(MOVE O1 -17 Q)
(CALL LISTP 1)
(JUMPE O1 18)
(SKIPN NIL -22 Q)
(JRST 20)
(MOVE O1 -17 Q)
(CALL NREVERSE 1)
(MOVEM O1 -13 Q)
(MOVE O2 O1)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -12 Q)
(MOVE O2 -20 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -9 Q)
(MOVE O2 -13 Q)
(CALL NTHCDR 2)
(MOVEM O1 -10 Q)
(MOVE O2 -20 Q)
(MOVE O1 -14 Q)
(CALL - 2)
(MOVEM O1 -8 Q)
(MOVE O2 -12 Q)
(CALL NTHCDR 2)
(MOVEM O1 -9 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -8 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -7 Q)
(LABEL 26) (MOVE O2 -20 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(JUMPN1 O1 29)
(MOVE O2 -18 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 29) (JRST 27)
(MOVE O1 -12 Q)
(MOVE O1 1 O1)
(CALL NREVERSE 1)
(JRST 22)
(LABEL 27) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -6 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -5 Q)
(MOVE O1 -10 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -6 Q)
(FCALL 1)
(JUMPN O1 31)
(MOVE O1 -10 Q)
(MOVE O2 1 O1)
(MOVE O1 -9 Q)
(CALL RPLACD 2)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 30)
(LABEL 31) (SKIPA)
(JRST 32)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -9 Q)
(LABEL 32)
(LABEL 30) (MOVE O1 -10 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -10 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -8 Q)
(JRST 26)
(LABEL 22) (JRST 21)
(LABEL 20) (MOVE O2 -17 Q)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -13 Q)
(MOVE O2 -17 Q)
(MOVE O1 -21 Q)
(CALL NTHCDR 2)
(MOVEM O1 -11 Q)
(MOVE O2 -13 Q)
(MOVE O1 -21 Q)
(CALL NTHCDR 2)
(MOVEM O1 -10 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -9 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -8 Q)
(LABEL 38) (MOVE O2 -20 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPN1 O1 41)
(MOVE O2 -18 Q)
(MOVE O1 -8 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 41) (JRST 39)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 34)
(LABEL 39) (MOVE O5 (SPECIAL 0))
(MOVEM O5 -7 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -6 Q)
(MOVE O1 -11 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -7 Q)
(FCALL 1)
(JUMPN O1 43)
(MOVE O1 -11 Q)
(MOVE O2 1 O1)
(MOVE O1 -10 Q)
(CALL RPLACD 2)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 42)
(LABEL 43) (SKIPA)
(JRST 44)
(MOVE O1 -10 Q)
(MOVE O1 1 O1)
(MOVEM O1 -10 Q)
(LABEL 44)
(LABEL 42) (MOVE O1 -11 Q)
(MOVE O5 1 O1)
(MOVEM O5 -7 Q)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -11 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -9 Q)
(JRST 38)
(LABEL 34)
(LABEL 21) (JRST 19)
(LABEL 18) (SKIPN NIL -22 Q)
(JRST 46)
(MOVE O1 -20 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(MOVE O1 -21 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 52) (MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 55)
(MOVE O2 -18 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 55) (JRST 53)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -5 Q)
(LABEL 60) (SKIPN NIL -7 Q)
(JRST1 63)
(MOVE O2 -20 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 63) (JRST 61)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 68) (MOVE O2 -14 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 69)
(MOVE O2 -2 Q)
(MOVE O1 -17 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 64)
(LABEL 69) (MOVE O2 -3 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 68)
(LABEL 64) (JRST 56)
(LABEL 61) (MOVE O2 -6 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(MOVE O2 0 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 71)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 72)
(LABEL 71) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 72) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 60)
(LABEL 56) (JRST 48)
(LABEL 53) (MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVEM O1 -10 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -7 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -7 Q)
(FCALL 1)
(MOVE O6 -8 Q)
(FCALL 1)
(JUMPN O1 74)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(MOVE O2 -11 Q)
(MOVE O1 -13 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(LABEL 74) (MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(JRST 52)
(LABEL 48) (JRST 47)
(LABEL 46) (MOVE O5 -21 Q)
(MOVEM O5 -13 Q)
(MOVEM O5 -12 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -11 Q)
(LABEL 80) (MOVE O2 -20 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 83)
(MOVE O2 -18 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 83) (JRST 81)
(MOVE O5 -13 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -8 Q)
(LABEL 88) (MOVE O2 -14 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPE O1 89)
(MOVE O2 -8 Q)
(MOVE O1 -17 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 84)
(LABEL 89) (MOVE O2 -9 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -8 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -9 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -8 Q)
(JRST 88)
(LABEL 84) (JRST 76)
(LABEL 81) (MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -17 Q)
(MOVE O2 -12 Q)
(CALL LISP::%ASET 3)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -10 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -9 Q)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -9 Q)
(FCALL 1)
(MOVE O6 -10 Q)
(FCALL 1)
(JUMPN O1 91)
(MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 92)
(LABEL 91) (MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(LABEL 92) (MOVE O1 -13 Q)
(CALL 1+ 1)
(MOVEM O1 -13 Q)
(JRST 80)
(LABEL 76)
(LABEL 47)
(LABEL 19) (UNBIND 1)
(SUBI Q 23)
(POPJ P)
)
(%PUT (QUOTE DELETE-IF-NOT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)) (COUNT MOST-POSITIVE-FIXNUM))))
(%PUT (QUOTE DELETE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE DELETE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE REMOVE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a copy of SEQUENCE with elements satisfying the test (default is
EQL) with ITEM removed."))
#_(LAP #0_REMOVE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :TEST-NOT :TEST :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 28)
(MOVEM O1 -20 Q)
(MOVEM O2 -19 Q)
(MOVEM O3 -18 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -27 Q)
(MOVE O2 -18 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -26 Q)
(MOVE O2 -18 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 12)
(MOVEM O1 -25 Q)
(MOVE O2 -18 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -24 Q)
(MOVE O2 -18 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 -19 Q)
(CALL LENGTH 1)
(LABEL 15) (MOVEM O1 -23 Q)
(MOVE O2 -18 Q)
(LABEL 18) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 17)
(JUMPN O2 18)
(MOVE O1 (CONSTANT 8))
(LABEL 17) (MOVEM O1 -22 Q)
(MOVE O2 -18 Q)
(LABEL 20) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 9))
(JRST 19)
(JUMPN O2 20)
(MOVE O1 (CONSTANT 10))
(LABEL 19) (MOVEM O1 -21 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -17 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -19 Q)
(CALL LENGTH 1)
(MOVEM O1 -16 Q)
(MOVE O1 -19 Q)
(CALL LISTP 1)
(JUMPE O1 22)
(SKIPN NIL -27 Q)
(JRST 24)
(MOVE O1 -19 Q)
(CALL REVERSE 1)
(MOVEM O1 -15 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -14 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -11 Q)
(MOVE O5 O1)
(MOVEM O5 -10 Q)
(LABEL 30) (MOVE O2 -24 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(JUMPE O1 31)
(MOVE O5 -10 Q)
(MOVEM O5 -13 Q)
(JRST 26)
(LABEL 31) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 30)
(LABEL 26) (MOVE O5 -24 Q)
(MOVEM O5 -11 Q)
(MOVEM NIL -10 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -9 Q)
(LABEL 37) (MOVE O2 -23 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(JUMPN1 O1 40)
(MOVE O2 -22 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 40) (JRST 38)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(LABEL 45) (SKIPE NIL -15 Q)
(JRST 46)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(CALL NREVERSE 1)
(JRST 41)
(LABEL 46) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 45)
(LABEL 41) (JRST 33)
(LABEL 38) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(MOVEM O1 -10 Q)
(SKIPN NIL -25 Q)
(JRST 50)
(MOVE O5 -25 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -6 Q)
(MOVE O1 -10 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -8 Q)
(FCALL 2)
(JUMPE O1 51)
(JRST1 51)
(LABEL 50) (MOVE O5 -26 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -6 Q)
(MOVE O1 -10 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -8 Q)
(FCALL 2)
(SKIPE NIL O1)
(LABEL 51) (JRST 48)
(MOVE O1 -10 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(JRST 49)
(LABEL 48) (MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -9 Q)
(LABEL 49) (MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 37)
(LABEL 33) (JRST 25)
(LABEL 24) (MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -15 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -12 Q)
(MOVE O5 O1)
(MOVEM O5 -11 Q)
(LABEL 56) (MOVE O2 -24 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPE O1 57)
(MOVE O5 -11 Q)
(MOVEM O5 -14 Q)
(JRST 52)
(LABEL 57) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 56)
(LABEL 52) (MOVE O5 -24 Q)
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -10 Q)
(LABEL 63) (MOVE O2 -23 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPN1 O1 66)
(MOVE O2 -22 Q)
(MOVE O1 -10 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 66) (JRST 64)
(MOVE O5 -12 Q)
(MOVEM O5 -8 Q)
(LABEL 71) (SKIPE NIL -19 Q)
(JRST 72)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 67)
(LABEL 72) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 71)
(LABEL 67) (JRST 59)
(LABEL 64) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(MOVEM O1 -11 Q)
(SKIPN NIL -25 Q)
(JRST 76)
(MOVE O5 -25 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -7 Q)
(MOVE O1 -11 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -9 Q)
(FCALL 2)
(JUMPE O1 77)
(JRST1 77)
(LABEL 76) (MOVE O5 -26 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -7 Q)
(MOVE O1 -11 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -9 Q)
(FCALL 2)
(SKIPE NIL O1)
(LABEL 77) (JRST 74)
(MOVE O1 -11 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(JRST 75)
(LABEL 74) (MOVE O1 -10 Q)
(CALL 1+ 1)
(MOVEM O1 -10 Q)
(LABEL 75) (MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 63)
(LABEL 59)
(LABEL 25) (JRST 23)
(LABEL 22) (SKIPN NIL -27 Q)
(JRST 78)
(MOVE O1 -19 Q)
(CALL COPY-SEQ 1)
(MOVEM O1 -15 Q)
(MOVE O1 -23 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(MOVE O1 -24 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 84) (MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 87)
(MOVE O2 -22 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 87) (JRST 85)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -24 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -5 Q)
(LABEL 92) (SKIPN NIL -7 Q)
(JRST1 95)
(MOVE O2 -23 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 95) (JRST 93)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 100) (MOVE O2 -16 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 101)
(MOVE O2 -2 Q)
(MOVE O1 -15 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 96)
(LABEL 101) (MOVE O2 -3 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -15 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 100)
(LABEL 96) (JRST 88)
(LABEL 93) (MOVE O2 -6 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -15 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(MOVE O2 0 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 103)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 104)
(LABEL 103) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 104) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 92)
(LABEL 88) (JRST 80)
(LABEL 85) (MOVE O2 -13 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVEM O1 -10 Q)
(SKIPN NIL -25 Q)
(JRST 107)
(MOVE O5 -25 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -6 Q)
(MOVE O1 -10 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -8 Q)
(FCALL 2)
(JUMPN O1 108)
(JRST1 108)
(LABEL 107) (MOVE O5 -26 Q)
(MOVEM O5 -8 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -6 Q)
(MOVE O1 -10 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -8 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 108) (JRST 106)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(MOVE O2 -11 Q)
(MOVE O1 -13 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(LABEL 106) (MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(JRST 84)
(LABEL 80) (JRST 79)
(LABEL 78) (MOVE O5 -24 Q)
(MOVEM O5 -15 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -12 Q)
(MOVE O1 -19 Q)
(CALL TYPE-OF 1)
(MOVEM O1 -10 Q)
(MOVE O2 -16 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -11 Q)
(LABEL 115) (MOVE O2 -24 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPE O1 116)
(MOVE O5 -11 Q)
(MOVEM O5 -14 Q)
(JRST 111)
(LABEL 116) (MOVE O2 -12 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -12 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 115)
(LABEL 111) (MOVE O5 -24 Q)
(MOVEM O5 -13 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(LABEL 121) (MOVE O2 -23 Q)
(MOVE O1 -15 Q)
(CALL = 2)
(JUMPN1 O1 124)
(MOVE O2 -22 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 124) (JRST 122)
(MOVE O5 -15 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -8 Q)
(LABEL 129) (MOVE O2 -16 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPE O1 130)
(MOVE O2 -8 Q)
(MOVE O1 -14 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 125)
(LABEL 130) (MOVE O2 -9 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -14 Q)
(MOVE O2 -8 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -9 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -8 Q)
(JRST 129)
(LABEL 125) (JRST 110)
(LABEL 122) (MOVE O2 -15 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVEM O1 -11 Q)
(SKIPN NIL -25 Q)
(JRST 134)
(MOVE O5 -25 Q)
(MOVEM O5 -10 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -10 Q)
(FCALL 2)
(JUMPE O1 135)
(JRST1 135)
(LABEL 134) (MOVE O5 -26 Q)
(MOVEM O5 -10 Q)
(MOVE O5 -21 Q)
(MOVEM O5 -8 Q)
(MOVE O1 -11 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -20 Q)
(MOVE O6 -10 Q)
(FCALL 2)
(SKIPE NIL O1)
(LABEL 135) (JRST 133)
(MOVE O3 -11 Q)
(MOVE O1 -14 Q)
(MOVE O2 -13 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -13 Q)
(CALL 1+ 1)
(MOVEM O1 -13 Q)
(JRST 132)
(LABEL 133) (SKIPA)
(JRST 136)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(LABEL 136)
(LABEL 132) (MOVE O1 -15 Q)
(CALL 1+ 1)
(MOVEM O1 -15 Q)
(JRST 121)
(LABEL 110)
(LABEL 79)
(LABEL 23) (SUBI Q 28)
(POPJ P)
)
(%PUT (QUOTE REMOVE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START 0) (END (LENGTH SEQUENCE)) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE REMOVE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE REMOVE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE REMOVE-IF) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a copy of sequence with elements such that predicate(element)
is non-null are removed"))
#_(LAP #0_REMOVE-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE :FROM-END :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 25)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -19 Q)
(MOVEM O3 -18 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 1))
(JUMPN O4 8)
(MOVEM O1 -24 Q)
(MOVE O2 -18 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 2))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 3))
(LABEL 9) (MOVEM O1 -23 Q)
(MOVE O2 -18 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -19 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -22 Q)
(MOVE O2 -18 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 5))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 6))
(LABEL 13) (MOVEM O1 -21 Q)
(MOVE O2 -18 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 (CONSTANT 8))
(LABEL 15) (MOVEM O1 -20 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -17 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -19 Q)
(CALL LENGTH 1)
(MOVEM O1 -16 Q)
(MOVE O1 -19 Q)
(CALL LISTP 1)
(JUMPE O1 18)
(SKIPN NIL -24 Q)
(JRST 20)
(MOVE O1 -19 Q)
(CALL REVERSE 1)
(MOVEM O1 -15 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -14 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -11 Q)
(MOVE O5 O1)
(MOVEM O5 -10 Q)
(LABEL 26) (MOVE O2 -23 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(JUMPE O1 27)
(MOVE O5 -10 Q)
(MOVEM O5 -13 Q)
(JRST 22)
(LABEL 27) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 26)
(LABEL 22) (MOVE O5 -23 Q)
(MOVEM O5 -11 Q)
(MOVEM NIL -10 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -9 Q)
(LABEL 33) (MOVE O2 -22 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(JUMPN1 O1 36)
(MOVE O2 -21 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 36) (JRST 34)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(LABEL 41) (SKIPE NIL -15 Q)
(JRST 42)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(CALL NREVERSE 1)
(JRST 37)
(LABEL 42) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 41)
(LABEL 37) (JRST 29)
(LABEL 34) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(MOVEM O1 -10 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -7 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -8 Q)
(FCALL 1)
(JUMPN O1 44)
(MOVE O1 -10 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(JRST 45)
(LABEL 44) (MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -9 Q)
(LABEL 45) (MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 33)
(LABEL 29) (JRST 21)
(LABEL 20) (MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -15 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVE O5 O1)
(MOVEM O5 -11 Q)
(LABEL 50) (MOVE O2 -23 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPE O1 51)
(MOVE O5 -11 Q)
(MOVEM O5 -14 Q)
(JRST 46)
(LABEL 51) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 50)
(LABEL 46) (MOVE O5 -23 Q)
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -10 Q)
(LABEL 57) (MOVE O2 -22 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPN1 O1 60)
(MOVE O2 -21 Q)
(MOVE O1 -10 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 60) (JRST 58)
(MOVE O5 -12 Q)
(MOVEM O5 -8 Q)
(LABEL 65) (SKIPE NIL -19 Q)
(JRST 66)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 61)
(LABEL 66) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 65)
(LABEL 61) (JRST 53)
(LABEL 58) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(MOVEM O1 -11 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -9 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -8 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -9 Q)
(FCALL 1)
(JUMPN O1 68)
(MOVE O1 -11 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(JRST 69)
(LABEL 68) (MOVE O1 -10 Q)
(CALL 1+ 1)
(MOVEM O1 -10 Q)
(LABEL 69) (MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 57)
(LABEL 53)
(LABEL 21) (JRST 19)
(LABEL 18) (SKIPN NIL -24 Q)
(JRST 70)
(MOVE O1 -19 Q)
(CALL COPY-SEQ 1)
(MOVEM O1 -15 Q)
(MOVE O1 -22 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(MOVE O1 -23 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 76) (MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 79)
(MOVE O2 -21 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 79) (JRST 77)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -23 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -5 Q)
(LABEL 84) (SKIPN NIL -7 Q)
(JRST1 87)
(MOVE O2 -22 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 87) (JRST 85)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 92) (MOVE O2 -16 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 93)
(MOVE O2 -2 Q)
(MOVE O1 -15 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 88)
(LABEL 93) (MOVE O2 -3 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -15 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 92)
(LABEL 88) (JRST 80)
(LABEL 85) (MOVE O2 -6 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -15 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(MOVE O2 0 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 95)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 96)
(LABEL 95) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 96) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 84)
(LABEL 80) (JRST 72)
(LABEL 77) (MOVE O2 -13 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVEM O1 -10 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -7 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -8 Q)
(FCALL 1)
(JUMPE O1 98)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(MOVE O2 -11 Q)
(MOVE O1 -13 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(LABEL 98) (MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(JRST 76)
(LABEL 72) (JRST 71)
(LABEL 70) (MOVE O5 -23 Q)
(MOVEM O5 -15 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVE O1 -19 Q)
(CALL TYPE-OF 1)
(MOVEM O1 -10 Q)
(MOVE O2 -16 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -11 Q)
(LABEL 105) (MOVE O2 -23 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPE O1 106)
(MOVE O5 -11 Q)
(MOVEM O5 -14 Q)
(JRST 101)
(LABEL 106) (MOVE O2 -12 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -12 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 105)
(LABEL 101) (MOVE O5 -23 Q)
(MOVEM O5 -13 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(LABEL 111) (MOVE O2 -22 Q)
(MOVE O1 -15 Q)
(CALL = 2)
(JUMPN1 O1 114)
(MOVE O2 -21 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 114) (JRST 112)
(MOVE O5 -15 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -8 Q)
(LABEL 119) (MOVE O2 -16 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPE O1 120)
(MOVE O2 -8 Q)
(MOVE O1 -14 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 115)
(LABEL 120) (MOVE O2 -9 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -14 Q)
(MOVE O2 -8 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -9 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -8 Q)
(JRST 119)
(LABEL 115) (JRST 100)
(LABEL 112) (MOVE O2 -15 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVEM O1 -11 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -10 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -9 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -10 Q)
(FCALL 1)
(JUMPN O1 123)
(MOVE O3 -11 Q)
(MOVE O1 -14 Q)
(MOVE O2 -13 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -13 Q)
(CALL 1+ 1)
(MOVEM O1 -13 Q)
(JRST 122)
(LABEL 123) (SKIPA)
(JRST 124)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(LABEL 124)
(LABEL 122) (MOVE O1 -15 Q)
(CALL 1+ 1)
(MOVEM O1 -15 Q)
(JRST 111)
(LABEL 100)
(LABEL 71)
(LABEL 19) (UNBIND 1)
(SUBI Q 25)
(POPJ P)
)
(%PUT (QUOTE REMOVE-IF) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE REMOVE-IF) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE REMOVE-IF) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE REMOVE-IF-NOT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a copy of sequence with elements such that predicate(element)
is null are removed"))
#_(LAP #0_REMOVE-IF-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(PREDICATE :FROM-END :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 25)
(SPEC-BIND (SPECIAL 0))
(MOVEM O1 (SPECIAL 0))
(MOVEM O2 -19 Q)
(MOVEM O3 -18 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 1))
(JUMPN O4 8)
(MOVEM O1 -24 Q)
(MOVE O2 -18 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 2))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 3))
(LABEL 9) (MOVEM O1 -23 Q)
(MOVE O2 -18 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -19 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -22 Q)
(MOVE O2 -18 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 5))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 6))
(LABEL 13) (MOVEM O1 -21 Q)
(MOVE O2 -18 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 (CONSTANT 8))
(LABEL 15) (MOVEM O1 -20 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -17 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -19 Q)
(CALL LENGTH 1)
(MOVEM O1 -16 Q)
(MOVE O1 -19 Q)
(CALL LISTP 1)
(JUMPE O1 18)
(SKIPN NIL -24 Q)
(JRST 20)
(MOVE O1 -19 Q)
(CALL REVERSE 1)
(MOVEM O1 -15 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -14 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -11 Q)
(MOVE O5 O1)
(MOVEM O5 -10 Q)
(LABEL 26) (MOVE O2 -23 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(JUMPE O1 27)
(MOVE O5 -10 Q)
(MOVEM O5 -13 Q)
(JRST 22)
(LABEL 27) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 26)
(LABEL 22) (MOVE O5 -23 Q)
(MOVEM O5 -11 Q)
(MOVEM NIL -10 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -9 Q)
(LABEL 33) (MOVE O2 -22 Q)
(MOVE O1 -11 Q)
(CALL = 2)
(JUMPN1 O1 36)
(MOVE O2 -21 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 36) (JRST 34)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(LABEL 41) (SKIPE NIL -15 Q)
(JRST 42)
(MOVE O1 -13 Q)
(MOVE O1 1 O1)
(CALL NREVERSE 1)
(JRST 37)
(LABEL 42) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -5 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 41)
(LABEL 37) (JRST 29)
(LABEL 34) (MOVE O1 -15 Q)
(MOVE O5 0 O1)
(MOVEM O5 -8 Q)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(MOVEM O1 -10 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -7 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -8 Q)
(FCALL 1)
(JUMPE O1 44)
(MOVE O1 -10 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -14 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -14 Q)
(JRST 45)
(LABEL 44) (MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -9 Q)
(LABEL 45) (MOVE O1 -11 Q)
(CALL 1+ 1)
(MOVEM O1 -11 Q)
(JRST 33)
(LABEL 29) (JRST 21)
(LABEL 20) (MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -15 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVE O5 O1)
(MOVEM O5 -11 Q)
(LABEL 50) (MOVE O2 -23 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPE O1 51)
(MOVE O5 -11 Q)
(MOVEM O5 -14 Q)
(JRST 46)
(LABEL 51) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 50)
(LABEL 46) (MOVE O5 -23 Q)
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -10 Q)
(LABEL 57) (MOVE O2 -22 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPN1 O1 60)
(MOVE O2 -21 Q)
(MOVE O1 -10 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 60) (JRST 58)
(MOVE O5 -12 Q)
(MOVEM O5 -8 Q)
(LABEL 65) (SKIPE NIL -19 Q)
(JRST 66)
(MOVE O1 -14 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 61)
(LABEL 66) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -6 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -8 Q)
(JRST 65)
(LABEL 61) (JRST 53)
(LABEL 58) (MOVE O1 -19 Q)
(MOVE O5 0 O1)
(MOVEM O5 -9 Q)
(MOVE O1 1 O1)
(MOVEM O1 -19 Q)
(MOVE O1 O5)
(MOVEM O1 -11 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -9 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -8 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -9 Q)
(FCALL 1)
(JUMPE O1 68)
(MOVE O1 -11 Q)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -15 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -15 Q)
(JRST 69)
(LABEL 68) (MOVE O1 -10 Q)
(CALL 1+ 1)
(MOVEM O1 -10 Q)
(LABEL 69) (MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 57)
(LABEL 53)
(LABEL 21) (JRST 19)
(LABEL 18) (SKIPN NIL -24 Q)
(JRST 70)
(MOVE O1 -19 Q)
(CALL COPY-SEQ 1)
(MOVEM O1 -15 Q)
(MOVE O1 -22 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(MOVEM NIL -10 Q)
(MOVE O1 -23 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 76) (MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL = 2)
(JUMPN1 O1 79)
(MOVE O2 -21 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 79) (JRST 77)
(MOVE O5 -11 Q)
(MOVEM O5 -7 Q)
(MOVE O5 -23 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -5 Q)
(LABEL 84) (SKIPN NIL -7 Q)
(JRST1 87)
(MOVE O2 -22 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 87) (JRST 85)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 92) (MOVE O2 -16 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 93)
(MOVE O2 -2 Q)
(MOVE O1 -15 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 88)
(LABEL 93) (MOVE O2 -3 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -15 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 92)
(LABEL 88) (JRST 80)
(LABEL 85) (MOVE O2 -6 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -15 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(MOVE O2 0 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 95)
(MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 96)
(LABEL 95) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 96) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 84)
(LABEL 80) (JRST 72)
(LABEL 77) (MOVE O2 -13 Q)
(MOVE O1 -15 Q)
(CALL AREF 2)
(MOVEM O1 -10 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -8 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -7 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -8 Q)
(FCALL 1)
(JUMPN O1 98)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(MOVE O2 -11 Q)
(MOVE O1 -13 Q)
(CALL CONS 2)
(MOVEM O1 -11 Q)
(LABEL 98) (MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -13 Q)
(JRST 76)
(LABEL 72) (JRST 71)
(LABEL 70) (MOVE O5 -23 Q)
(MOVEM O5 -15 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVE O1 -19 Q)
(CALL TYPE-OF 1)
(MOVEM O1 -10 Q)
(MOVE O2 -16 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -11 Q)
(LABEL 105) (MOVE O2 -23 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(JUMPE O1 106)
(MOVE O5 -11 Q)
(MOVEM O5 -14 Q)
(JRST 101)
(LABEL 106) (MOVE O2 -12 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -12 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(JRST 105)
(LABEL 101) (MOVE O5 -23 Q)
(MOVEM O5 -13 Q)
(MOVE O5 (CONSTANT 3))
(MOVEM O5 -12 Q)
(MOVEM NIL -11 Q)
(LABEL 111) (MOVE O2 -22 Q)
(MOVE O1 -15 Q)
(CALL = 2)
(JUMPN1 O1 114)
(MOVE O2 -21 Q)
(MOVE O1 -12 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 114) (JRST 112)
(MOVE O5 -15 Q)
(MOVEM O5 -9 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -8 Q)
(LABEL 119) (MOVE O2 -16 Q)
(MOVE O1 -9 Q)
(CALL = 2)
(JUMPE O1 120)
(MOVE O2 -8 Q)
(MOVE O1 -14 Q)
(CALL LISP::SHRINK-VECTOR 2)
(JRST 115)
(LABEL 120) (MOVE O2 -9 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -14 Q)
(MOVE O2 -8 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVE O1 -8 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(MOVE O1 -7 Q)
(MOVEM O1 -9 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -8 Q)
(JRST 119)
(LABEL 115) (JRST 100)
(LABEL 112) (MOVE O2 -15 Q)
(MOVE O1 -19 Q)
(CALL AREF 2)
(MOVEM O1 -11 Q)
(MOVE O5 (SPECIAL 0))
(MOVEM O5 -10 Q)
(MOVE O5 -20 Q)
(MOVEM O5 -9 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -10 Q)
(FCALL 1)
(JUMPE O1 123)
(MOVE O3 -11 Q)
(MOVE O1 -14 Q)
(MOVE O2 -13 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -13 Q)
(CALL 1+ 1)
(MOVEM O1 -13 Q)
(JRST 122)
(LABEL 123) (SKIPA)
(JRST 124)
(MOVE O1 -12 Q)
(CALL 1+ 1)
(MOVEM O1 -12 Q)
(LABEL 124)
(LABEL 122) (MOVE O1 -15 Q)
(CALL 1+ 1)
(MOVEM O1 -15 Q)
(JRST 111)
(LABEL 100)
(LABEL 71)
(LABEL 19) (UNBIND 1)
(SUBI Q 25)
(POPJ P)
)
(%PUT (QUOTE REMOVE-IF-NOT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE REMOVE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE REMOVE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-REMOVE-DUPLICATES* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(0 :TEST :TEST-NOT :KEY)
(CODE-START)
(LABEL 1) (ADDI Q 15)
(MOVEM O1 -14 Q)
(MOVEM O2 -13 Q)
(MOVEM O3 -12 Q)
(MOVEM O4 -11 Q)
(MOVEM O5 -10 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -9 Q)
(MOVE O5 O1)
(MOVEM O5 -8 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -7 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -6 Q)
(LABEL 7) (MOVE O2 -11 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O1 -7 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 7)
(LABEL 3) (MOVE O5 (CONSTANT 0))
(MOVEM O5 -6 Q)
(LABEL 14) (SKIPN NIL -10 Q)
(JRST1 18)
(MOVE O2 -10 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(SKIPE NIL O1)
(LABEL 18) (JRST1 17)
(MOVE O1 -7 Q)
(CALL ATOM 1)
(SKIPN NIL O1)
(LABEL 17) (JRST 15)
(JRST 10)
(LABEL 15) (SKIPN NIL -15 Q)
(JRST1 23)
(MOVE O5 -16 Q)
(MOVEM O5 -5 Q)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -5 Q)
(MOVE O2 -9 Q)
(MOVE O1 -11 Q)
(CALL NTHCDR 2)
(MOVEM O1 -4 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -3 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -1 Q)
(PUSH Q -12 Q)
(PUSH Q (CONSTANT 3))
(PUSH Q -18 Q)
(MOVE O1 -8 Q)
(MOVE O2 -7 Q)
(MOVE O3 -6 Q)
(MOVE O4 -5 Q)
(MOVE O5 -4 Q)
(CALL MEMBER 8)
(SKIPN NIL O1)
(LABEL 23) (JRST1 22)
(SKIPE NIL -15 Q)
(JRST 25)
(MOVE O5 -16 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -4 Q)
(MOVE O1 -7 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(LABEL 31) (MOVE O1 -3 Q)
(CALL ATOM 1)
(JUMPN1 O1 34)
(MOVE O2 -10 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 34) (JRST 32)
(JRST1 27)
(LABEL 32) (SKIPN NIL -12 Q)
(JRST 37)
(MOVE O5 -12 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -4 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(JUMPN O1 38)
(JRST1 38)
(LABEL 37) (MOVE O5 -13 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -4 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 38) (JRST 35)
(JRST 27)
(JRST1 27)
(LABEL 35) (MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 31)
(LABEL 27)
(LABEL 25)
(LABEL 22) (JRST 20)
(MOVE O1 -7 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(LABEL 20) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 14)
(LABEL 10)
(LABEL 43) (MOVE O1 -7 Q)
(CALL ATOM 1)
(JUMPE O1 44)
(JRST 39)
(LABEL 44) (MOVE O1 -7 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -8 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -8 Q)
(MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(JRST 43)
(LABEL 39) (MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE LIST-REMOVE-DUPLICATES*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (LIST TEST TEST-NOT START END KEY FROM-END)))
(%PUT (QUOTE LIST-REMOVE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-REMOVE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-REMOVE-DUPLICATES* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 3 2-MANY))
#0_(0 :START :END :TEST :TEST-NOT :KEY)
(CODE-START)
(LABEL 1) (ADDI Q 15)
(MOVEM O1 -13 Q)
(MOVEM O2 -12 Q)
(MOVEM O3 -11 Q)
(MOVEM O4 -10 Q)
(MOVEM O5 -9 Q)
(CALL LENGTH 1)
(MOVEM O1 -14 Q)
(JRST 2)
(LABEL 3) (ADDI Q 14)
(MOVEM O1 -13 Q)
(MOVEM O2 -12 Q)
(MOVEM O3 -11 Q)
(MOVEM O4 -10 Q)
(MOVEM O5 -9 Q)
(LABEL 2) (MOVE O1 -13 Q)
(CALL TYPE-OF 1)
(MOVEM O1 -7 Q)
(MOVE O2 -14 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -8 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -7 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -6 Q)
(LABEL 9) (MOVE O2 -10 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPE O1 10)
(JRST 5)
(LABEL 10) (MOVE O2 -7 Q)
(MOVE O1 -13 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -8 Q)
(MOVE O2 -7 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 9)
(LABEL 5) (MOVEM NIL -5 Q)
(LABEL 16) (MOVE O2 -9 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPE O1 17)
(JRST 12)
(LABEL 17) (MOVE O2 -7 Q)
(MOVE O1 -13 Q)
(CALL AREF 2)
(MOVEM O1 -5 Q)
(SKIPN NIL -15 Q)
(JRST1 22)
(MOVE O5 -16 Q)
(MOVEM O5 -4 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -4 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -2 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 0 Q)
(PUSH Q -6 Q)
(PUSH Q (CONSTANT 3))
(PUSH Q -14 Q)
(PUSH Q (CONSTANT 4))
(PUSH Q -15 Q)
(PUSH Q (CONSTANT 5))
(PUSH Q -22 Q)
(MOVE O1 -11 Q)
(MOVE O2 -10 Q)
(MOVE O3 -9 Q)
(MOVE O4 -8 Q)
(MOVE O5 -7 Q)
(CALL POSITION 12)
(SKIPE NIL O1)
(LABEL 22) (JRST 21)
(SKIPE NIL -15 Q)
(JRST1 24)
(MOVE O5 -16 Q)
(MOVEM O5 -4 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 -2 Q)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 0 Q)
(PUSH Q -9 Q)
(PUSH Q (CONSTANT 3))
(PUSH Q -14 Q)
(PUSH Q (CONSTANT 4))
(PUSH Q -15 Q)
(PUSH Q (CONSTANT 5))
(PUSH Q -22 Q)
(MOVE O1 -11 Q)
(MOVE O2 -10 Q)
(MOVE O3 -9 Q)
(MOVE O4 -8 Q)
(MOVE O5 -7 Q)
(CALL POSITION 12)
(SKIPE NIL O1)
(LABEL 24)
(LABEL 21) (JRST 20)
(MOVE O3 -5 Q)
(MOVE O1 -8 Q)
(MOVE O2 -6 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(LABEL 20) (MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(JRST 16)
(LABEL 12)
(LABEL 31) (MOVE O2 -14 Q)
(MOVE O1 -7 Q)
(CALL = 2)
(JUMPE O1 32)
(JRST 27)
(LABEL 32) (MOVE O2 -7 Q)
(MOVE O1 -13 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -8 Q)
(MOVE O2 -6 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -7 Q)
(CALL 1+ 1)
(MOVEM O1 -7 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 31)
(LABEL 27) (MOVE O2 -6 Q)
(MOVE O1 -8 Q)
(CALL LISP::SHRINK-VECTOR 2)
(SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE VECTOR-REMOVE-DUPLICATES*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (VECTOR TEST TEST-NOT START END KEY FROM-END &OPTIONAL (LENGTH (LENGTH VECTOR)))))
(%PUT (QUOTE VECTOR-REMOVE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-REMOVE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE REMOVE-DUPLICATES) (QUOTE %FUN-DOCUMENTATION) (QUOTE "The elements of Sequence are examined, and if any two match, one is
discarded. The resulting sequence is returned."))
#_(LAP #0_REMOVE-DUPLICATES EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(:TEST EQL :TEST-NOT :START 0 :FROM-END :END :KEY IDENTITY (:KEY :END :FROM-END :START :TEST-NOT :TEST))
(CODE-START)
(LABEL 2) (MOVE O2 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST2)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST3)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST4)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST5)
(JRST 1)
(LABEL 7) (MOVEI W2 1)
(ICALL RESTX)
(LABEL 1) (ADDI Q 13)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 0))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 1))
(LABEL 8) (MOVEM O1 -12 Q)
(MOVE O2 -5 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 2))
(JUMPN O4 11)
(MOVEM O1 -11 Q)
(MOVE O2 -5 Q)
(LABEL 13) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 12)
(JUMPN O2 13)
(MOVE O1 (CONSTANT 4))
(LABEL 12) (MOVEM O1 -10 Q)
(MOVE O2 -5 Q)
(LABEL 15) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 5))
(JUMPN O4 15)
(MOVEM O1 -9 Q)
(MOVE O2 -5 Q)
(LABEL 17) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 16)
(JUMPN O2 17)
(MOVE O1 -6 Q)
(CALL LENGTH 1)
(LABEL 16) (MOVEM O1 -8 Q)
(MOVE O2 -5 Q)
(LABEL 19) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 18)
(JUMPN O2 19)
(MOVE O1 (CONSTANT 8))
(LABEL 18) (MOVEM O1 -7 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -6 Q)
(CALL LISTP 1)
(JUMPE O1 21)
(SKIPN NIL -6 Q)
(JRST 23)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -8 Q)
(MOVEM O5 0 Q)
(PUSH Q -7 Q)
(PUSH Q -10 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::LIST-REMOVE-DUPLICATES* 7)
(JRST 24)
(LABEL 23) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 24) (JRST 22)
(LABEL 21) (MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -8 Q)
(MOVEM O5 0 Q)
(PUSH Q -7 Q)
(PUSH Q -10 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::VECTOR-REMOVE-DUPLICATES* 7)
(LABEL 22) (SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE REMOVE-DUPLICATES) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE &KEY (TEST (FUNCTION EQL)) TEST-NOT (START 0) FROM-END (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE REMOVE-DUPLICATES) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE REMOVE-DUPLICATES) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-DELETE-DUPLICATES* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 15)
(MOVEM O1 -14 Q)
(MOVEM O2 -13 Q)
(MOVEM O3 -12 Q)
(MOVEM O4 -11 Q)
(MOVEM O5 -10 Q)
(MOVE O2 O1)
(MOVE O1 NIL)
(CALL CONS 2)
(MOVEM O1 -9 Q)
(MOVE O2 -14 Q)
(MOVE O1 -16 Q)
(CALL NTHCDR 2)
(MOVEM O1 -8 Q)
(MOVE O2 -9 Q)
(MOVE O1 -16 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O5 -16 Q)
(MOVEM O5 -6 Q)
(LABEL 7) (MOVE O2 -15 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 10)
(SKIPE NIL -8 Q)
(LABEL 10) (JRST 8)
(MOVE O1 -9 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (SKIPN NIL -10 Q)
(JRST 14)
(MOVE O1 -16 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O2 -9 Q)
(CALL NTHCDR 2)
(MOVEM O1 -4 Q)
(JRST 15)
(LABEL 14) (MOVE O1 -8 Q)
(MOVE O5 1 O1)
(MOVEM O5 -4 Q)
(LABEL 15) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(LABEL 19) (SKIPN NIL -4 Q)
(JRST1 22)
(SKIPE NIL -10 Q)
(JRST1 23)
(MOVE O2 -15 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(SKIPE NIL O1)
(LABEL 23) (JRST1 22)
(MOVE O2 -8 Q)
(CAME O2 -4 Q)
(LABEL 22) (JRST 20)
(JRST 13)
(JRST1 13)
(LABEL 20) (SKIPN NIL -12 Q)
(JRST 27)
(MOVE O5 -12 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -8 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -1 Q)
(MOVE O5 -11 Q)
(MOVEM O5 0 Q)
(MOVE O1 -4 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVE O6 -2 Q)
(FCALL 2)
(JUMPN O1 28)
(JRST1 28)
(LABEL 27) (MOVE O5 -13 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -8 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -1 Q)
(MOVE O5 -11 Q)
(MOVEM O5 0 Q)
(MOVE O1 -4 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVE O6 -2 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 28) (JRST 25)
(JRST1 13)
(LABEL 25) (MOVE O1 -4 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(JRST 19)
(LABEL 13) (JRST 11)
(MOVE O1 -8 Q)
(MOVE O2 1 O1)
(MOVE O1 -7 Q)
(CALL RPLACD 2)
(JRST 12)
(LABEL 11) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(LABEL 12) (MOVE O1 -8 Q)
(MOVE O5 1 O1)
(MOVEM O5 -5 Q)
(MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -8 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(JRST 7)
(LABEL 3) (SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE LIST-DELETE-DUPLICATES*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (LIST TEST TEST-NOT KEY FROM-END START END)))
(%PUT (QUOTE LIST-DELETE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-DELETE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-DELETE-DUPLICATES* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 3 2-MANY))
#0_(:KEY :START :TEST :END :TEST-NOT)
(CODE-START)
(LABEL 1) (ADDI Q 13)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVEM O4 -8 Q)
(MOVEM O5 -7 Q)
(CALL LENGTH 1)
(MOVEM O1 -12 Q)
(JRST 2)
(LABEL 3) (ADDI Q 12)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVEM O4 -8 Q)
(MOVEM O5 -7 Q)
(LABEL 2) (MOVE O5 -14 Q)
(MOVEM O5 -6 Q)
(MOVEM O5 -5 Q)
(LABEL 9) (MOVE O2 -13 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 10)
(MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 16) (MOVE O2 -12 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 17)
(MOVE O2 -2 Q)
(MOVE O1 -11 Q)
(CALL LISP::SHRINK-VECTOR 2)
(MOVE O1 -11 Q)
(MOVEI N 1)
(JRST 12)
(LABEL 17) (MOVE O2 -3 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 16)
(LABEL 12) (JRST 5)
(LABEL 10) (MOVE O2 -6 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -11 Q)
(MOVE O2 -5 Q)
(CALL LISP::%ASET 3)
(MOVE O5 -8 Q)
(MOVEM O5 -4 Q)
(MOVE O2 -6 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVE O6 -4 Q)
(FCALL 1)
(MOVEM O1 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -3 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -2 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 1))
(MOVEM O5 0 Q)
(SKIPN NIL -7 Q)
(JRST 21)
(PUSH Q -14 Q)
(JRST 22)
(LABEL 21) (MOVE O1 -6 Q)
(CALL 1+ 1)
(PUSH Q O1)
(LABEL 22) (PUSH Q (CONSTANT 2))
(PUSH Q -12 Q)
(PUSH Q (CONSTANT 3))
(SKIPN NIL -11 Q)
(JRST 23)
(PUSH Q -9 Q)
(JRST 24)
(LABEL 23) (PUSH Q -17 Q)
(LABEL 24) (PUSH Q (CONSTANT 4))
(PUSH Q -15 Q)
(MOVE O1 -11 Q)
(MOVE O2 -10 Q)
(MOVE O3 -9 Q)
(MOVE O4 -8 Q)
(MOVE O5 -7 Q)
(CALL POSITION 12)
(JUMPN O1 20)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 20) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 9)
(LABEL 5) (SUBI Q 15)
(POPJ P)
)
(%PUT (QUOTE VECTOR-DELETE-DUPLICATES*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (VECTOR TEST TEST-NOT KEY FROM-END START END &OPTIONAL (LENGTH (LENGTH VECTOR)))))
(%PUT (QUOTE VECTOR-DELETE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-DELETE-DUPLICATES*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE DELETE-DUPLICATES) (QUOTE %FUN-DOCUMENTATION) (QUOTE "The elements of Sequence are examined, and if any two match, one is
discarded. The resulting sequence, which may be formed by destroying the
given sequence, is returned."))
#_(LAP #0_DELETE-DUPLICATES EXPR
(ENTRY-POINTS (2-FEW 2 3 4 5 6 7) REST)
#0_(:TEST EQL :TEST-NOT :START 0 :FROM-END :END :KEY IDENTITY (:KEY :END :FROM-END :START :TEST-NOT :TEST))
(CODE-START)
(LABEL 2) (MOVE O2 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST2)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST3)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST4)
(JRST 1)
(LABEL 6) (MOVEI W2 4)
(ICALL REST5)
(JRST 1)
(LABEL 7) (MOVEI W2 1)
(ICALL RESTX)
(LABEL 1) (ADDI Q 13)
(MOVEM O1 -6 Q)
(MOVEM O2 -5 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 0))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 1))
(LABEL 8) (MOVEM O1 -12 Q)
(MOVE O2 -5 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 2))
(JUMPN O4 11)
(MOVEM O1 -11 Q)
(MOVE O2 -5 Q)
(LABEL 13) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 12)
(JUMPN O2 13)
(MOVE O1 (CONSTANT 4))
(LABEL 12) (MOVEM O1 -10 Q)
(MOVE O2 -5 Q)
(LABEL 15) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 5))
(JUMPN O4 15)
(MOVEM O1 -9 Q)
(MOVE O2 -5 Q)
(LABEL 17) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 16)
(JUMPN O2 17)
(MOVE O1 -6 Q)
(CALL LENGTH 1)
(LABEL 16) (MOVEM O1 -8 Q)
(MOVE O2 -5 Q)
(LABEL 19) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 18)
(JUMPN O2 19)
(MOVE O1 (CONSTANT 8))
(LABEL 18) (MOVEM O1 -7 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -6 Q)
(CALL LISTP 1)
(JUMPE O1 21)
(SKIPN NIL -6 Q)
(JRST 23)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -9 Q)
(MOVEM O5 0 Q)
(PUSH Q -10 Q)
(PUSH Q -9 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::LIST-DELETE-DUPLICATES* 7)
(JRST 24)
(LABEL 23) (MOVE O1 NIL)
(MOVEI N 1)
(LABEL 24) (JRST 22)
(LABEL 21) (MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -9 Q)
(MOVEM O5 0 Q)
(PUSH Q -10 Q)
(PUSH Q -9 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::VECTOR-DELETE-DUPLICATES* 7)
(LABEL 22) (SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE DELETE-DUPLICATES) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE &KEY (TEST (FUNCTION EQL)) TEST-NOT (START 0) FROM-END (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE DELETE-DUPLICATES) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE DELETE-DUPLICATES) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_LIST-SUBSTITUTE* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(0 NORMAL T IF IF-NOT)
(CODE-START)
(LABEL 1) (ADDI Q 13)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVEM O4 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O1 NIL)
(CALL LIST 1)
(MOVEM O1 -7 Q)
(MOVEM NIL -6 Q)
(MOVE O5 O1)
(MOVEM O5 -5 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O5 (CONSTANT 0))
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O2 -9 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(LABEL 14) (SKIPN NIL -8 Q)
(JRST1 18)
(MOVE O2 -8 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(SKIPE NIL O1)
(LABEL 18) (JRST1 17)
(SKIPN NIL -4 Q)
(JRST1 17)
(MOVE O1 -17 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 17) (JRST 15)
(JRST 10)
(LABEL 15) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(MOVEM O1 -6 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 1))
(CAME O2 -2 Q)
(JRST 23)
(SKIPN NIL -14 Q)
(JRST 24)
(MOVE O5 -14 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(MOVE O1 -6 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -13 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(TDCN O1 O1)
(MOVE O1 (CONSTANT 2))
(JRST 25)
(LABEL 24) (MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(MOVE O1 -6 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -13 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(LABEL 25) (JRST 22)
(LABEL 23) (MOVE O2 (CONSTANT 3))
(CAME O2 -2 Q)
(JRST 26)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(MOVE O1 -6 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JRST 22)
(LABEL 26) (MOVE O2 (CONSTANT 4))
(CAME O2 -2 Q)
(JRST 27)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(MOVE O1 -6 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(TDCN O1 O1)
(MOVE O1 (CONSTANT 2))
(JRST 22)
(LABEL 27) (MOVE O1 NIL)
(LABEL 22) (JUMPE O1 21)
(MOVE O1 -17 Q)
(CALL 1- 1)
(MOVEM O1 -17 Q)
(MOVE O1 -11 Q)
(JRST 20)
(LABEL 21) (SKIPA)
(JRST 29)
(MOVE O1 -6 Q)
(LABEL 29)
(LABEL 20) (CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(JRST 14)
(LABEL 10)
(LABEL 35) (SKIPE NIL -4 Q)
(JRST 36)
(JRST 31)
(LABEL 36) (MOVE O1 -4 Q)
(MOVE O1 0 O1)
(CALL LIST 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL RPLACD 2)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -4 Q)
(JRST 35)
(LABEL 31) (MOVE O1 -7 Q)
(MOVE O1 1 O1)
(MOVEI N 1)
(SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE LIST-SUBSTITUTE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PRED NEW LIST START END COUNT KEY TEST TEST-NOT OLD)))
(%PUT (QUOTE LIST-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE LIST-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_VECTOR-SUBSTITUTE* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_(NORMAL T IF IF-NOT)
(CODE-START)
(LABEL 1) (ADDI Q 11)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVEM O4 -7 Q)
(MOVEM O5 -6 Q)
(MOVE O1 O3)
(CALL TYPE-OF 1)
(MOVEM O1 -4 Q)
(MOVE O2 -18 Q)
(CALL LISP::MAKE-SEQUENCE-OF-TYPE 2)
(MOVEM O1 -5 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -4 Q)
(LABEL 7) (MOVE O2 -17 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 8)
(JRST 3)
(LABEL 8) (MOVE O2 -4 Q)
(MOVE O1 -8 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(CALL LISP::%ASET 3)
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL + 2)
(MOVEM O1 -4 Q)
(JRST 7)
(LABEL 3) (MOVEM NIL -3 Q)
(LABEL 14) (MOVE O2 -16 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPN1 O1 17)
(MOVE O1 -15 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 17) (JRST 15)
(JRST 10)
(LABEL 15) (MOVE O2 -4 Q)
(MOVE O1 -8 Q)
(CALL AREF 2)
(MOVEM O1 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O2 (CONSTANT 0))
(CAME O2 -2 Q)
(JRST 21)
(SKIPN NIL -12 Q)
(JRST 22)
(MOVE O5 -12 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -14 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -11 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(TDCN O1 O1)
(MOVE O1 (CONSTANT 1))
(JRST 23)
(LABEL 22) (MOVE O5 -13 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -14 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -11 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(LABEL 23) (JRST 20)
(LABEL 21) (MOVE O2 (CONSTANT 2))
(CAME O2 -2 Q)
(JRST 24)
(MOVE O5 -13 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -14 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JRST 20)
(LABEL 24) (MOVE O2 (CONSTANT 3))
(CAME O2 -2 Q)
(JRST 25)
(MOVE O5 -13 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -14 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(TDCN O1 O1)
(MOVE O1 (CONSTANT 1))
(JRST 20)
(LABEL 25) (MOVE O1 NIL)
(LABEL 20) (JUMPE O1 19)
(MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -15 Q)
(MOVE O3 -9 Q)
(JRST 18)
(LABEL 19) (SKIPA)
(JRST 27)
(MOVE O3 -3 Q)
(LABEL 27)
(LABEL 18) (MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(CALL LISP::%ASET 3)
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL + 2)
(MOVEM O1 -4 Q)
(JRST 14)
(LABEL 10)
(LABEL 33) (MOVE O2 -19 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 34)
(JRST 29)
(LABEL 34) (MOVE O2 -4 Q)
(MOVE O1 -8 Q)
(CALL AREF 2)
(MOVE O3 O1)
(MOVE O1 -5 Q)
(MOVE O2 -4 Q)
(CALL LISP::%ASET 3)
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL + 2)
(MOVEM O1 -4 Q)
(JRST 33)
(LABEL 29) (MOVE O1 -5 Q)
(MOVEI N 1)
(SUBI Q 20)
(POPJ P)
)
(%PUT (QUOTE VECTOR-SUBSTITUTE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (PRED NEW SEQUENCE INCREMENTER LEFT RIGHT LENGTH START END COUNT KEY TEST TEST-NOT OLD)))
(%PUT (QUOTE VECTOR-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE VECTOR-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SUBSTITUTE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the same kind as Sequence with the same elements
except that all elements equal to Old are replaced with New. See manual
for details."))
#_(LAP #0_SUBSTITUTE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2 3 4 5) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START 0 :COUNT 2147483647 :END :KEY IDENTITY (:KEY :END :COUNT :START :TEST-NOT :TEST :FROM-END) NORMAL -1 1)
(CODE-START)
(LABEL 2) (MOVE O4 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST4)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST5)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL RESTX)
(LABEL 1) (ADDI Q 19)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVEM O4 -8 Q)
(MOVE O2 O4)
(LABEL 7) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 7)
(MOVEM O1 -18 Q)
(MOVE O2 -8 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 2))
(LABEL 8) (MOVEM O1 -17 Q)
(MOVE O2 -8 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 11)
(MOVEM O1 -16 Q)
(MOVE O2 -8 Q)
(LABEL 13) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 12)
(JUMPN O2 13)
(MOVE O1 (CONSTANT 5))
(LABEL 12) (MOVEM O1 -15 Q)
(MOVE O2 -8 Q)
(LABEL 15) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 14)
(JUMPN O2 15)
(MOVE O1 (CONSTANT 7))
(LABEL 14) (MOVEM O1 -14 Q)
(MOVE O2 -8 Q)
(LABEL 17) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 8))
(JRST 16)
(JUMPN O2 17)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(LABEL 16) (MOVEM O1 -13 Q)
(MOVE O2 -8 Q)
(LABEL 19) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 9))
(JRST 18)
(JUMPN O2 19)
(MOVE O1 (CONSTANT 10))
(LABEL 18) (MOVEM O1 -12 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -7 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(MOVEM O1 -6 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O1 -10 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -5 Q)
(MOVE O1 -9 Q)
(CALL LISTP 1)
(JUMPE O1 21)
(SKIPN NIL -18 Q)
(JRST 23)
(MOVE O5 (CONSTANT 12))
(MOVEM O5 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -9 Q)
(CALL REVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O2 -13 Q)
(MOVE O1 -6 Q)
(CALL - 2)
(MOVEM O1 -1 Q)
(MOVE O2 -15 Q)
(MOVE O1 -6 Q)
(CALL - 2)
(MOVEM O1 0 Q)
(PUSH Q -14 Q)
(PUSH Q -13 Q)
(PUSH Q -19 Q)
(PUSH Q -19 Q)
(PUSH Q -9 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::LIST-SUBSTITUTE* 10)
(CALL NREVERSE 1)
(JRST 24)
(LABEL 23) (MOVE O5 (CONSTANT 12))
(MOVEM O5 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(PUSH Q -14 Q)
(PUSH Q -13 Q)
(PUSH Q -19 Q)
(PUSH Q -19 Q)
(PUSH Q -9 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::LIST-SUBSTITUTE* 10)
(LABEL 24) (JRST 22)
(LABEL 21) (SKIPN NIL -18 Q)
(JRST 25)
(MOVE O5 (CONSTANT 12))
(MOVEM O5 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 13))
(MOVEM O5 -1 Q)
(MOVE O1 -6 Q)
(CALL 1- 1)
(MOVEM O1 0 Q)
(PUSH Q (CONSTANT 13))
(PUSH Q -7 Q)
(MOVE O1 -15 Q)
(CALL 1- 1)
(PUSH Q O1)
(MOVE O1 -18 Q)
(CALL 1- 1)
(PUSH Q O1)
(PUSH Q -18 Q)
(PUSH Q -17 Q)
(PUSH Q -23 Q)
(PUSH Q -23 Q)
(PUSH Q -13 Q)
(MOVE O1 -13 Q)
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(MOVE O4 -10 Q)
(MOVE O5 -9 Q)
(CALL LISP::VECTOR-SUBSTITUTE* 14)
(JRST 26)
(LABEL 25) (MOVE O5 (CONSTANT 12))
(MOVEM O5 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 14))
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 0 Q)
(PUSH Q -6 Q)
(PUSH Q -7 Q)
(PUSH Q -17 Q)
(PUSH Q -16 Q)
(PUSH Q -18 Q)
(PUSH Q -17 Q)
(PUSH Q -23 Q)
(PUSH Q -23 Q)
(PUSH Q -13 Q)
(MOVE O1 -13 Q)
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(MOVE O4 -10 Q)
(MOVE O5 -9 Q)
(CALL LISP::VECTOR-SUBSTITUTE* 14)
(LABEL 26)
(LABEL 22) (SUBI Q 19)
(POPJ P)
)
(%PUT (QUOTE SUBSTITUTE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW OLD SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START 0) (COUNT MOST-POSITIVE-FIXNUM) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE SUBSTITUTE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE SUBSTITUTE) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SUBSTITUTE-IF) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the same kind as Sequence with the same elements
except that all elements satisfying the Test are replaced with New. See
manual for details."))
#_(LAP #0_SUBSTITUTE-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2 3 4 5) REST)
#0_(:FROM-END :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :FROM-END) IF -1 1)
(CODE-START)
(LABEL 2) (MOVE O4 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST4)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST5)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL RESTX)
(LABEL 1) (ADDI Q 18)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVEM O4 -9 Q)
(MOVE O2 O4)
(LABEL 7) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 7)
(MOVEM O1 -17 Q)
(MOVE O2 -9 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 2))
(LABEL 8) (MOVEM O1 -16 Q)
(MOVE O2 -9 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 10)
(JUMPN O2 11)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(LABEL 10) (MOVEM O1 -15 Q)
(MOVE O2 -9 Q)
(LABEL 13) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 12)
(JUMPN O2 13)
(MOVE O1 (CONSTANT 5))
(LABEL 12) (MOVEM O1 -14 Q)
(MOVE O2 -9 Q)
(LABEL 15) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 14)
(JUMPN O2 15)
(MOVE O1 (CONSTANT 7))
(LABEL 14) (MOVEM O1 -13 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVEM NIL -6 Q)
(MOVEM NIL -5 Q)
(MOVE O1 -10 Q)
(CALL LISTP 1)
(JUMPE O1 17)
(SKIPN NIL -17 Q)
(JRST 19)
(MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -10 Q)
(CALL REVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O2 -15 Q)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 -1 Q)
(MOVE O2 -16 Q)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 0 Q)
(PUSH Q -14 Q)
(PUSH Q -14 Q)
(PUSH Q -13 Q)
(PUSH Q -9 Q)
(PUSH Q -9 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::LIST-SUBSTITUTE* 10)
(CALL NREVERSE 1)
(JRST 20)
(LABEL 19) (MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -16 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -15 Q)
(MOVEM O5 0 Q)
(PUSH Q -14 Q)
(PUSH Q -14 Q)
(PUSH Q -13 Q)
(PUSH Q -9 Q)
(PUSH Q -9 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::LIST-SUBSTITUTE* 10)
(LABEL 20) (JRST 18)
(LABEL 17) (SKIPN NIL -17 Q)
(JRST 21)
(MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -1 Q)
(MOVE O1 -7 Q)
(CALL 1- 1)
(MOVEM O1 0 Q)
(PUSH Q (CONSTANT 10))
(PUSH Q -8 Q)
(MOVE O1 -17 Q)
(CALL 1- 1)
(PUSH Q O1)
(MOVE O1 -19 Q)
(CALL 1- 1)
(PUSH Q O1)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -17 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(MOVE O1 -13 Q)
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(MOVE O4 -10 Q)
(MOVE O5 -9 Q)
(CALL LISP::VECTOR-SUBSTITUTE* 14)
(JRST 22)
(LABEL 21) (MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 11))
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 0 Q)
(PUSH Q -7 Q)
(PUSH Q -8 Q)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -17 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(MOVE O1 -13 Q)
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(MOVE O4 -10 Q)
(MOVE O5 -9 Q)
(CALL LISP::VECTOR-SUBSTITUTE* 14)
(LABEL 22)
(LABEL 18) (SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE SUBSTITUTE-IF) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE SUBSTITUTE-IF) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE SUBSTITUTE-IF) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SUBSTITUTE-IF-NOT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the same kind as Sequence with the same elements
except that all elements not satisfying the Test are replaced with New.
See manual for details."))
#_(LAP #0_SUBSTITUTE-IF-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2 3 4 5) REST)
#0_(:FROM-END :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :FROM-END) IF-NOT -1 1)
(CODE-START)
(LABEL 2) (MOVE O4 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST4)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST5)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL RESTX)
(LABEL 1) (ADDI Q 18)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVEM O4 -9 Q)
(MOVE O2 O4)
(LABEL 7) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 7)
(MOVEM O1 -17 Q)
(MOVE O2 -9 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 2))
(LABEL 8) (MOVEM O1 -16 Q)
(MOVE O2 -9 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 10)
(JUMPN O2 11)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(LABEL 10) (MOVEM O1 -15 Q)
(MOVE O2 -9 Q)
(LABEL 13) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 12)
(JUMPN O2 13)
(MOVE O1 (CONSTANT 5))
(LABEL 12) (MOVEM O1 -14 Q)
(MOVE O2 -9 Q)
(LABEL 15) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 14)
(JUMPN O2 15)
(MOVE O1 (CONSTANT 7))
(LABEL 14) (MOVEM O1 -13 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVEM NIL -6 Q)
(MOVEM NIL -5 Q)
(MOVE O1 -10 Q)
(CALL LISTP 1)
(JUMPE O1 17)
(SKIPN NIL -17 Q)
(JRST 19)
(MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -10 Q)
(CALL REVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O2 -15 Q)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 -1 Q)
(MOVE O2 -16 Q)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 0 Q)
(PUSH Q -14 Q)
(PUSH Q -14 Q)
(PUSH Q -13 Q)
(PUSH Q -9 Q)
(PUSH Q -9 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::LIST-SUBSTITUTE* 10)
(CALL NREVERSE 1)
(JRST 20)
(LABEL 19) (MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -16 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -15 Q)
(MOVEM O5 0 Q)
(PUSH Q -14 Q)
(PUSH Q -14 Q)
(PUSH Q -13 Q)
(PUSH Q -9 Q)
(PUSH Q -9 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::LIST-SUBSTITUTE* 10)
(LABEL 20) (JRST 18)
(LABEL 17) (SKIPN NIL -17 Q)
(JRST 21)
(MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -1 Q)
(MOVE O1 -7 Q)
(CALL 1- 1)
(MOVEM O1 0 Q)
(PUSH Q (CONSTANT 10))
(PUSH Q -8 Q)
(MOVE O1 -17 Q)
(CALL 1- 1)
(PUSH Q O1)
(MOVE O1 -19 Q)
(CALL 1- 1)
(PUSH Q O1)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -17 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(MOVE O1 -13 Q)
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(MOVE O4 -10 Q)
(MOVE O5 -9 Q)
(CALL LISP::VECTOR-SUBSTITUTE* 14)
(JRST 22)
(LABEL 21) (MOVE O5 (CONSTANT 9))
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O5 (CONSTANT 11))
(MOVEM O5 -1 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 0 Q)
(PUSH Q -7 Q)
(PUSH Q -8 Q)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -18 Q)
(PUSH Q -17 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(MOVE O1 -13 Q)
(MOVE O2 -12 Q)
(MOVE O3 -11 Q)
(MOVE O4 -10 Q)
(MOVE O5 -9 Q)
(CALL LISP::VECTOR-SUBSTITUTE* 14)
(LABEL 22)
(LABEL 18) (SUBI Q 18)
(POPJ P)
)
(%PUT (QUOTE SUBSTITUTE-IF-NOT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE SUBSTITUTE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE SUBSTITUTE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NSUBSTITUTE) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the same kind as Sequence with the same elements
except that all elements equal to Old are replaced with New. The Sequence
may be destroyed. See manual for details."))
#_(LAP #0_NSUBSTITUTE EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2 3 4 5) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :END :COUNT 2147483647 :KEY IDENTITY :START 0 (:START :KEY :COUNT :END :TEST-NOT :TEST :FROM-END) 1 -1)
(CODE-START)
(LABEL 2) (MOVE O4 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST4)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST5)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL RESTX)
(LABEL 1) (ADDI Q 19)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVEM O4 -8 Q)
(MOVE O2 O4)
(LABEL 7) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 7)
(MOVEM O1 -18 Q)
(MOVE O2 -8 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 2))
(LABEL 8) (MOVEM O1 -17 Q)
(MOVE O2 -8 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 11)
(MOVEM O1 -16 Q)
(MOVE O2 -8 Q)
(LABEL 13) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 12)
(JUMPN O2 13)
(MOVE O1 -9 Q)
(CALL VECTORP 1)
(JUMPE O1 14)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(JRST 15)
(LABEL 14) (MOVE O1 NIL)
(LABEL 15)
(LABEL 12) (MOVEM O1 -15 Q)
(MOVE O2 -8 Q)
(LABEL 17) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 5))
(JRST 16)
(JUMPN O2 17)
(MOVE O1 (CONSTANT 6))
(LABEL 16) (MOVEM O1 -14 Q)
(MOVE O2 -8 Q)
(LABEL 19) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 18)
(JUMPN O2 19)
(MOVE O1 (CONSTANT 8))
(LABEL 18) (MOVEM O1 -13 Q)
(MOVE O2 -8 Q)
(LABEL 21) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 9))
(JRST 20)
(JUMPN O2 21)
(MOVE O1 (CONSTANT 10))
(LABEL 20) (MOVEM O1 -12 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -7 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O5 (CONSTANT 12))
(MOVEM O5 -6 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(MOVE O1 -10 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -5 Q)
(SKIPN NIL -18 Q)
(JRST 23)
(MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(MOVE O1 -12 Q)
(CALL 1- 1)
(MOVEM O1 -3 Q)
(MOVE O5 (CONSTANT 13))
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -12 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -15 Q)
(MOVE O1 O5)
(MOVEM O1 -6 Q)
(LABEL 23) (MOVE O1 -9 Q)
(CALL LISTP 1)
(JUMPE O1 25)
(SKIPN NIL -18 Q)
(JRST 27)
(MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -9 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O5 -17 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(PUSH Q -12 Q)
(PUSH Q -16 Q)
(PUSH Q -16 Q)
(PUSH Q -16 Q)
(MOVE O1 -8 Q)
(MOVE O2 -7 Q)
(MOVE O3 -6 Q)
(MOVE O4 -5 Q)
(MOVE O5 -4 Q)
(CALL LISP::NLIST-SUBSTITUTE* 9)
(CALL NREVERSE 1)
(JRST 28)
(LABEL 27) (MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -17 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -16 Q)
(MOVEM O5 0 Q)
(PUSH Q -12 Q)
(PUSH Q -16 Q)
(PUSH Q -16 Q)
(PUSH Q -16 Q)
(MOVE O1 -8 Q)
(MOVE O2 -7 Q)
(MOVE O3 -6 Q)
(MOVE O4 -5 Q)
(MOVE O5 -4 Q)
(CALL LISP::NLIST-SUBSTITUTE* 9)
(LABEL 28) (JRST 26)
(LABEL 25) (MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -6 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -17 Q)
(MOVEM O5 0 Q)
(PUSH Q -16 Q)
(PUSH Q -13 Q)
(PUSH Q -17 Q)
(PUSH Q -17 Q)
(PUSH Q -17 Q)
(MOVE O1 -9 Q)
(MOVE O2 -8 Q)
(MOVE O3 -7 Q)
(MOVE O4 -6 Q)
(MOVE O5 -5 Q)
(CALL LISP::NVECTOR-SUBSTITUTE* 10)
(LABEL 26) (SUBI Q 19)
(POPJ P)
)
(%PUT (QUOTE NSUBSTITUTE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW OLD SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (END (IF (VECTORP SEQUENCE) (LENGTH (THE VECTOR SEQUENCE)))) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)) (START 0))))
(%PUT (QUOTE NSUBSTITUTE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NSUBSTITUTE) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_NLIST-SUBSTITUTE* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVEM O3 -6 Q)
(MOVEM O4 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O2 O3)
(MOVE O1 -12 Q)
(CALL NTHCDR 2)
(MOVEM O1 -3 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -2 Q)
(LABEL 7) (SKIPN NIL -11 Q)
(JRST1 11)
(MOVE O2 -11 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(SKIPE NIL O1)
(LABEL 11) (JRST1 10)
(SKIPN NIL -3 Q)
(JRST1 10)
(MOVE O1 -10 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 10) (JRST 8)
(MOVE O1 -6 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (SKIPN NIL -4 Q)
(JRST 15)
(MOVE O5 -4 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -9 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -7 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(JUMPN O1 16)
(JRST1 16)
(LABEL 15) (MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -9 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 0 Q)
(MOVE O2 -7 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 16) (JRST 14)
(MOVE O2 -8 Q)
(MOVE O1 -3 Q)
(CALL RPLACA 2)
(MOVE O1 -10 Q)
(CALL 1- 1)
(MOVEM O1 -10 Q)
(LABEL 14) (MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 13)
(POPJ P)
)
(%PUT (QUOTE NLIST-SUBSTITUTE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW OLD* SEQUENCE TEST TEST-NOT START END COUNT KEY)))
(%PUT (QUOTE NLIST-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NLIST-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_NVECTOR-SUBSTITUTE* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVEM O3 -6 Q)
(MOVEM O4 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(LABEL 7) (MOVE O2 -11 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPN1 O1 10)
(MOVE O1 -10 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 10) (JRST 8)
(MOVE O1 -6 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (SKIPN NIL -13 Q)
(JRST 13)
(MOVE O5 -13 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(CALL AREF 2)
(MOVEM O1 0 Q)
(MOVE O2 -7 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(MOVE O6 -2 Q)
(FCALL 1)
(JUMPN O1 14)
(JRST1 14)
(LABEL 13) (MOVE O5 -4 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -3 Q)
(MOVE O1 -6 Q)
(CALL AREF 2)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVEM O1 -1 Q)
(MOVE O2 -7 Q)
(MOVE O6 -2 Q)
(FCALL 2)
(SKIPN NIL O1)
(LABEL 14) (JRST 12)
(MOVE O3 -8 Q)
(MOVE O1 -6 Q)
(MOVE O2 -3 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -10 Q)
(CALL 1- 1)
(MOVEM O1 -10 Q)
(LABEL 12) (MOVE O2 -5 Q)
(MOVE O1 -3 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(JRST 7)
(LABEL 3) (SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE NVECTOR-SUBSTITUTE*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW OLD* SEQUENCE INCREMENTER TEST TEST-NOT START END COUNT KEY)))
(%PUT (QUOTE NVECTOR-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NVECTOR-SUBSTITUTE*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NSUBSTITUTE-IF) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the same kind as Sequence with the same elements
except that all elements satisfying the Test are replaced with New. The
Sequence may be destroyed. See manual for details."))
#_(LAP #0_NSUBSTITUTE-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2 3 4 5) REST)
#0_(:FROM-END :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :FROM-END) 1 -1)
(CODE-START)
(LABEL 2) (MOVE O4 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST4)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST5)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL RESTX)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVEM O4 -7 Q)
(MOVE O2 O4)
(LABEL 7) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 7)
(MOVEM O1 -15 Q)
(MOVE O2 -7 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 2))
(LABEL 8) (MOVEM O1 -14 Q)
(MOVE O2 -7 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 10)
(JUMPN O2 11)
(MOVE O1 -8 Q)
(CALL VECTORP 1)
(JUMPE O1 12)
(MOVE O1 -8 Q)
(CALL LENGTH 1)
(JRST 13)
(LABEL 12) (MOVE O1 NIL)
(LABEL 13)
(LABEL 10) (MOVEM O1 -13 Q)
(MOVE O2 -7 Q)
(LABEL 15) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 14)
(JUMPN O2 15)
(MOVE O1 (CONSTANT 5))
(LABEL 14) (MOVEM O1 -12 Q)
(MOVE O2 -7 Q)
(LABEL 17) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 16)
(JUMPN O2 17)
(MOVE O1 (CONSTANT 7))
(LABEL 16) (MOVEM O1 -11 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O5 (CONSTANT 9))
(MOVEM O5 -5 Q)
(SKIPN NIL -15 Q)
(JRST 19)
(MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -3 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -14 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -13 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(LABEL 19) (MOVE O1 -8 Q)
(CALL LISTP 1)
(JUMPE O1 21)
(SKIPN NIL -15 Q)
(JRST 23)
(MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -8 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(PUSH Q -12 Q)
(PUSH Q -12 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::NLIST-SUBSTITUTE-IF* 7)
(CALL NREVERSE 1)
(JRST 24)
(LABEL 23) (MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(PUSH Q -12 Q)
(PUSH Q -12 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::NLIST-SUBSTITUTE-IF* 7)
(LABEL 24) (JRST 22)
(LABEL 21) (MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -14 Q)
(MOVEM O5 0 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(MOVE O1 -7 Q)
(MOVE O2 -6 Q)
(MOVE O3 -5 Q)
(MOVE O4 -4 Q)
(MOVE O5 -3 Q)
(CALL LISP::NVECTOR-SUBSTITUTE-IF* 8)
(LABEL 22) (SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE NSUBSTITUTE-IF) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE &KEY FROM-END (START 0) (END (IF (VECTORP SEQUENCE) (LENGTH (THE VECTOR SEQUENCE)))) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE NSUBSTITUTE-IF) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NSUBSTITUTE-IF) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_NLIST-SUBSTITUTE-IF* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVEM O3 -6 Q)
(MOVEM O4 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O2 O3)
(MOVE O1 O4)
(CALL NTHCDR 2)
(MOVEM O1 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 7) (SKIPN NIL -4 Q)
(JRST1 11)
(MOVE O2 -4 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(SKIPE NIL O1)
(LABEL 11) (JRST1 10)
(SKIPN NIL -3 Q)
(JRST1 10)
(MOVE O1 -10 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 10) (JRST 8)
(MOVE O1 -6 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O5 -7 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -9 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPE O1 14)
(MOVE O2 -8 Q)
(MOVE O1 -3 Q)
(CALL RPLACA 2)
(MOVE O1 -10 Q)
(CALL 1- 1)
(MOVEM O1 -10 Q)
(LABEL 14) (MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE NLIST-SUBSTITUTE-IF*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE START END COUNT KEY)))
(%PUT (QUOTE NLIST-SUBSTITUTE-IF*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NLIST-SUBSTITUTE-IF*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_NVECTOR-SUBSTITUTE-IF* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVEM O4 -4 Q)
(MOVEM O5 -3 Q)
(MOVEM O5 -2 Q)
(LABEL 7) (MOVE O2 -10 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPN1 O1 10)
(MOVE O1 -9 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 10) (JRST 8)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O5 -6 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -8 Q)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 -5 Q)
(CALL AREF 2)
(MOVE O6 0 Q)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPE O1 12)
(MOVE O3 -7 Q)
(MOVE O1 -5 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 12) (MOVE O2 -4 Q)
(MOVE O1 -2 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE NVECTOR-SUBSTITUTE-IF*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE INCREMENTER START END COUNT KEY)))
(%PUT (QUOTE NVECTOR-SUBSTITUTE-IF*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NVECTOR-SUBSTITUTE-IF*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE NSUBSTITUTE-IF-NOT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns a sequence of the same kind as Sequence with the same elements
except that all elements not satisfying the Test are replaced with New.
The Sequence may be destroyed. See manual for details."))
#_(LAP #0_NSUBSTITUTE-IF-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2 3 4 5) REST)
#0_(:FROM-END :START 0 :END :COUNT 2147483647 :KEY IDENTITY (:KEY :COUNT :END :START :FROM-END) 1 -1)
(CODE-START)
(LABEL 2) (MOVE O4 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST4)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST5)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL RESTX)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVEM O4 -7 Q)
(MOVE O2 O4)
(LABEL 7) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 7)
(MOVEM O1 -15 Q)
(MOVE O2 -7 Q)
(LABEL 9) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 8)
(JUMPN O2 9)
(MOVE O1 (CONSTANT 2))
(LABEL 8) (MOVEM O1 -14 Q)
(MOVE O2 -7 Q)
(LABEL 11) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 10)
(JUMPN O2 11)
(MOVE O1 -8 Q)
(CALL VECTORP 1)
(JUMPE O1 12)
(MOVE O1 -8 Q)
(CALL LENGTH 1)
(JRST 13)
(LABEL 12) (MOVE O1 NIL)
(LABEL 13)
(LABEL 10) (MOVEM O1 -13 Q)
(MOVE O2 -7 Q)
(LABEL 15) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 14)
(JUMPN O2 15)
(MOVE O1 (CONSTANT 5))
(LABEL 14) (MOVEM O1 -12 Q)
(MOVE O2 -7 Q)
(LABEL 17) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 16)
(JUMPN O2 17)
(MOVE O1 (CONSTANT 7))
(LABEL 16) (MOVEM O1 -11 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 8))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O5 (CONSTANT 9))
(MOVEM O5 -5 Q)
(SKIPN NIL -15 Q)
(JRST 19)
(MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -3 Q)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -14 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -13 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(LABEL 19) (MOVE O1 -8 Q)
(CALL LISTP 1)
(JUMPE O1 21)
(SKIPN NIL -15 Q)
(JRST 23)
(MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -8 Q)
(CALL NREVERSE 1)
(MOVEM O1 -2 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(PUSH Q -12 Q)
(PUSH Q -12 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::NLIST-SUBSTITUTE-IF-NOT* 7)
(CALL NREVERSE 1)
(JRST 24)
(LABEL 23) (MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(PUSH Q -12 Q)
(PUSH Q -12 Q)
(MOVE O1 -6 Q)
(MOVE O2 -5 Q)
(MOVE O3 -4 Q)
(MOVE O4 -3 Q)
(MOVE O5 -2 Q)
(CALL LISP::NLIST-SUBSTITUTE-IF-NOT* 7)
(LABEL 24) (JRST 22)
(LABEL 21) (MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -14 Q)
(MOVEM O5 0 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(PUSH Q -13 Q)
(MOVE O1 -7 Q)
(MOVE O2 -6 Q)
(MOVE O3 -5 Q)
(MOVE O4 -4 Q)
(MOVE O5 -3 Q)
(CALL LISP::NVECTOR-SUBSTITUTE-IF-NOT* 8)
(LABEL 22) (SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE NSUBSTITUTE-IF-NOT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE &KEY FROM-END (START 0) (END (IF (VECTORP SEQUENCE) (LENGTH (THE VECTOR SEQUENCE)))) (COUNT MOST-POSITIVE-FIXNUM) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE NSUBSTITUTE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NSUBSTITUTE-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_NLIST-SUBSTITUTE-IF-NOT* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 9)
(MOVEM O1 -8 Q)
(MOVEM O2 -7 Q)
(MOVEM O3 -6 Q)
(MOVEM O4 -5 Q)
(MOVEM O5 -4 Q)
(MOVE O2 O3)
(MOVE O1 O4)
(CALL NTHCDR 2)
(MOVEM O1 -3 Q)
(MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 7) (SKIPN NIL -4 Q)
(JRST1 11)
(MOVE O2 -4 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(SKIPE NIL O1)
(LABEL 11) (JRST1 10)
(SKIPN NIL -3 Q)
(JRST1 10)
(MOVE O1 -10 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 10) (JRST 8)
(MOVE O1 -6 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O5 -7 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -9 Q)
(MOVEM O5 0 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPN O1 14)
(MOVE O2 -8 Q)
(MOVE O1 -3 Q)
(CALL RPLACA 2)
(MOVE O1 -10 Q)
(CALL 1- 1)
(MOVEM O1 -10 Q)
(LABEL 14) (MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 -1 Q)
(MOVE O1 -2 Q)
(CALL 1+ 1)
(MOVEM O1 0 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -3 Q)
(MOVE O1 0 Q)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE NLIST-SUBSTITUTE-IF-NOT*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE START END COUNT KEY)))
(%PUT (QUOTE NLIST-SUBSTITUTE-IF-NOT*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NLIST-SUBSTITUTE-IF-NOT*) (QUOTE %SOURCE-DOCUMENTATION))))
#_(LAP #0_NVECTOR-SUBSTITUTE-IF-NOT* EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 2-FEW 1 2-MANY))
#0_NIL
(CODE-START)
(LABEL 1) (ADDI Q 8)
(MOVEM O1 -7 Q)
(MOVEM O2 -6 Q)
(MOVEM O3 -5 Q)
(MOVEM O4 -4 Q)
(MOVEM O5 -3 Q)
(MOVEM O5 -2 Q)
(LABEL 7) (MOVE O2 -10 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPN1 O1 10)
(MOVE O1 -9 Q)
(CALL ZEROP 1)
(SKIPN NIL O1)
(LABEL 10) (JRST 8)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 3)
(LABEL 8) (MOVE O5 -6 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -8 Q)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 -5 Q)
(CALL AREF 2)
(MOVE O6 0 Q)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPN O1 12)
(MOVE O3 -7 Q)
(MOVE O1 -5 Q)
(MOVE O2 -2 Q)
(CALL LISP::%ASET 3)
(MOVE O1 -9 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(LABEL 12) (MOVE O2 -4 Q)
(MOVE O1 -2 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(JRST 7)
(LABEL 3) (SUBI Q 11)
(POPJ P)
)
(%PUT (QUOTE NVECTOR-SUBSTITUTE-IF-NOT*) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (NEW TEST SEQUENCE INCREMENTER START END COUNT KEY)))
(%PUT (QUOTE NVECTOR-SUBSTITUTE-IF-NOT*) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE NVECTOR-SUBSTITUTE-IF-NOT*) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE POSITION) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the zero-origin index of the first element in SEQUENCE
satisfying the test (default is EQL) with the given ITEM"))
#_(LAP #0_POSITION EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START 0 :END :KEY IDENTITY (:KEY :END :START :TEST-NOT :TEST :FROM-END) -1 1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -16 Q)
(MOVE O2 -8 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -15 Q)
(MOVE O2 -8 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 12)
(MOVEM O1 -14 Q)
(MOVE O2 -8 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -13 Q)
(MOVE O2 -8 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(LABEL 15) (MOVEM O1 -12 Q)
(MOVE O2 -8 Q)
(LABEL 18) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 17)
(JUMPN O2 18)
(MOVE O1 (CONSTANT 8))
(LABEL 17) (MOVEM O1 -11 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -7 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(MOVEM O1 -6 Q)
(MOVE O1 -9 Q)
(CALL LISTP 1)
(JUMPE O1 20)
(SKIPN NIL -16 Q)
(JRST 22)
(MOVE O2 -12 Q)
(MOVE O1 -6 Q)
(CALL - 2)
(MOVEM O1 -4 Q)
(MOVE O1 -9 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(MOVE O1 -12 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(LABEL 28) (MOVE O1 -13 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPN1 O1 31)
(SKIPE NIL -5 Q)
(LABEL 31) (JRST 29)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 24)
(LABEL 29) (SKIPN NIL -14 Q)
(JRST 32)
(MOVE O5 -14 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 34)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 24)
(LABEL 34) (JRST 33)
(LABEL 32) (MOVE O5 -15 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 36)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 24)
(LABEL 36)
(LABEL 33) (MOVE O1 -4 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(JRST 28)
(LABEL 24) (JRST 23)
(LABEL 22) (MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(LABEL 42) (MOVE O2 -12 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPN1 O1 45)
(SKIPE NIL -5 Q)
(LABEL 45) (JRST 43)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 38)
(LABEL 43) (SKIPN NIL -14 Q)
(JRST 46)
(MOVE O5 -14 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 48)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 38)
(LABEL 48) (JRST 47)
(LABEL 46) (MOVE O5 -15 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 50)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 38)
(LABEL 50)
(LABEL 47) (MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(JRST 42)
(LABEL 38)
(LABEL 23) (JRST 21)
(LABEL 20) (SKIPN NIL -16 Q)
(JRST 52)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -5 Q)
(JRST 53)
(LABEL 52) (MOVE O5 (CONSTANT 11))
(MOVEM O5 -5 Q)
(LABEL 53) (SKIPN NIL -16 Q)
(JRST 54)
(MOVE O1 -12 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(JRST 55)
(LABEL 54) (MOVE O5 -13 Q)
(MOVEM O5 -4 Q)
(LABEL 55) (SKIPN NIL -16 Q)
(JRST 56)
(MOVE O1 -13 Q)
(CALL 1- 1)
(MOVEM O1 -3 Q)
(JRST 57)
(LABEL 56) (MOVE O5 -12 Q)
(MOVEM O5 -3 Q)
(LABEL 57) (MOVE O5 -4 Q)
(MOVEM O5 -2 Q)
(LABEL 62) (MOVE O2 -3 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 63)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 58)
(LABEL 63) (SKIPN NIL -14 Q)
(JRST 65)
(MOVE O5 -14 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -11 Q)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 -9 Q)
(CALL AREF 2)
(MOVE O6 0 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(JUMPE O1 67)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 58)
(LABEL 67) (JRST 66)
(LABEL 65) (MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -11 Q)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 -9 Q)
(CALL AREF 2)
(MOVE O6 0 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(JUMPE O1 69)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 58)
(LABEL 69)
(LABEL 66) (MOVE O2 -5 Q)
(MOVE O1 -2 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(JRST 62)
(LABEL 58)
(LABEL 21) (SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE POSITION) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE POSITION) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE POSITION) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE POSITION-IF) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the zero-origin index of the first element satisfying test(el)"))
#_(LAP #0_POSITION-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :START 0 :KEY IDENTITY :END (:END :KEY :START :FROM-END) -1 1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -15 Q)
(MOVE O2 -9 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -14 Q)
(MOVE O2 -9 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 (CONSTANT 4))
(LABEL 11) (MOVEM O1 -13 Q)
(MOVE O2 -9 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 5))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(LABEL 13) (MOVEM O1 -12 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O1 -10 Q)
(CALL LISTP 1)
(JUMPE O1 16)
(SKIPN NIL -15 Q)
(JRST 18)
(MOVE O2 -12 Q)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 -5 Q)
(MOVE O1 -10 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL NTHCDR 2)
(MOVEM O1 -6 Q)
(MOVE O1 -12 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(LABEL 24) (MOVE O1 -14 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 27)
(SKIPE NIL -6 Q)
(LABEL 27) (JRST 25)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 20)
(LABEL 25) (MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVE O6 -3 Q)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPE O1 28)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 20)
(LABEL 28) (MOVE O1 -5 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(JRST 24)
(LABEL 20) (JRST 19)
(LABEL 18) (MOVE O2 -10 Q)
(MOVE O1 -14 Q)
(CALL NTHCDR 2)
(MOVEM O1 -6 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -5 Q)
(LABEL 34) (MOVE O2 -12 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 37)
(SKIPE NIL -6 Q)
(LABEL 37) (JRST 35)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 30)
(LABEL 35) (MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVE O6 -3 Q)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPE O1 38)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 30)
(LABEL 38) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(JRST 34)
(LABEL 30)
(LABEL 19) (JRST 17)
(LABEL 16) (SKIPN NIL -15 Q)
(JRST 40)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -6 Q)
(JRST 41)
(LABEL 40) (MOVE O5 (CONSTANT 8))
(MOVEM O5 -6 Q)
(LABEL 41) (SKIPN NIL -15 Q)
(JRST 42)
(MOVE O1 -12 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(JRST 43)
(LABEL 42) (MOVE O5 -14 Q)
(MOVEM O5 -5 Q)
(LABEL 43) (SKIPN NIL -15 Q)
(JRST 44)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(JRST 45)
(LABEL 44) (MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(LABEL 45) (MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 50) (MOVE O2 -4 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 51)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 46)
(LABEL 51) (MOVE O5 -11 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 -10 Q)
(CALL AREF 2)
(MOVE O6 0 Q)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPE O1 53)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 46)
(LABEL 53) (MOVE O2 -6 Q)
(MOVE O1 -2 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(JRST 50)
(LABEL 46)
(LABEL 17) (SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE POSITION-IF) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TEST SEQUENCE &KEY FROM-END (START 0) (KEY (FUNCTION IDENTITY)) (END (LENGTH SEQUENCE)))))
(%PUT (QUOTE POSITION-IF) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE POSITION-IF) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE POSITION-IF-NOT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the zero-origin index of the first element not satisfying test(el)"))
#_(LAP #0_POSITION-IF-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :START 0 :KEY IDENTITY :END (:END :KEY :START :FROM-END) -1 1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 16)
(MOVEM O1 -11 Q)
(MOVEM O2 -10 Q)
(MOVEM O3 -9 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -15 Q)
(MOVE O2 -9 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -14 Q)
(MOVE O2 -9 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 (CONSTANT 4))
(LABEL 11) (MOVEM O1 -13 Q)
(MOVE O2 -9 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 5))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(LABEL 13) (MOVEM O1 -12 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -8 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -10 Q)
(CALL LENGTH 1)
(MOVEM O1 -7 Q)
(MOVE O1 -10 Q)
(CALL LISTP 1)
(JUMPE O1 16)
(SKIPN NIL -15 Q)
(JRST 18)
(MOVE O2 -12 Q)
(MOVE O1 -7 Q)
(CALL - 2)
(MOVEM O1 -5 Q)
(MOVE O1 -10 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL NTHCDR 2)
(MOVEM O1 -6 Q)
(MOVE O1 -12 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(LABEL 24) (MOVE O1 -14 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 27)
(SKIPE NIL -6 Q)
(LABEL 27) (JRST 25)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 20)
(LABEL 25) (MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVE O6 -3 Q)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPN O1 28)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 20)
(LABEL 28) (MOVE O1 -5 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(JRST 24)
(LABEL 20) (JRST 19)
(LABEL 18) (MOVE O2 -10 Q)
(MOVE O1 -14 Q)
(CALL NTHCDR 2)
(MOVEM O1 -6 Q)
(MOVE O5 -14 Q)
(MOVEM O5 -5 Q)
(LABEL 34) (MOVE O2 -12 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 37)
(SKIPE NIL -6 Q)
(LABEL 37) (JRST 35)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 30)
(LABEL 35) (MOVE O5 -11 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 -2 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVE O6 -3 Q)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPN O1 38)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 30)
(LABEL 38) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(JRST 34)
(LABEL 30)
(LABEL 19) (JRST 17)
(LABEL 16) (SKIPN NIL -15 Q)
(JRST 40)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -6 Q)
(JRST 41)
(LABEL 40) (MOVE O5 (CONSTANT 8))
(MOVEM O5 -6 Q)
(LABEL 41) (SKIPN NIL -15 Q)
(JRST 42)
(MOVE O1 -12 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(JRST 43)
(LABEL 42) (MOVE O5 -14 Q)
(MOVEM O5 -5 Q)
(LABEL 43) (SKIPN NIL -15 Q)
(JRST 44)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -4 Q)
(JRST 45)
(LABEL 44) (MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(LABEL 45) (MOVE O5 -5 Q)
(MOVEM O5 -2 Q)
(LABEL 50) (MOVE O2 -4 Q)
(MOVE O1 -2 Q)
(CALL = 2)
(JUMPE O1 51)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 46)
(LABEL 51) (MOVE O5 -11 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(MOVE O2 -2 Q)
(MOVE O1 -10 Q)
(CALL AREF 2)
(MOVE O6 0 Q)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPN O1 53)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 46)
(LABEL 53) (MOVE O2 -6 Q)
(MOVE O1 -2 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(JRST 50)
(LABEL 46)
(LABEL 17) (SUBI Q 16)
(POPJ P)
)
(%PUT (QUOTE POSITION-IF-NOT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TEST SEQUENCE &KEY FROM-END (START 0) (KEY (FUNCTION IDENTITY)) (END (LENGTH SEQUENCE)))))
(%PUT (QUOTE POSITION-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE POSITION-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COUNT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the number of elements in SEQUENCE satisfying a test with ITEM,
which defaults to EQL."))
#_(LAP #0_COUNT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START 0 :END :KEY IDENTITY (:KEY :END :START :TEST-NOT :TEST :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -10 Q)
(MOVEM O2 -9 Q)
(MOVEM O3 -8 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -16 Q)
(MOVE O2 -8 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -15 Q)
(MOVE O2 -8 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 12)
(MOVEM O1 -14 Q)
(MOVE O2 -8 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -13 Q)
(MOVE O2 -8 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 -9 Q)
(CALL LENGTH 1)
(LABEL 15) (MOVEM O1 -12 Q)
(MOVE O2 -8 Q)
(LABEL 18) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 17)
(JUMPN O2 18)
(MOVE O1 (CONSTANT 8))
(LABEL 17) (MOVEM O1 -11 Q)
(MOVE O5 -8 Q)
(MOVEM O5 -7 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -9 Q)
(CALL LISTP 1)
(JUMPE O1 20)
(MOVE O2 -9 Q)
(MOVE O1 -13 Q)
(CALL NTHCDR 2)
(MOVEM O1 -6 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -5 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -4 Q)
(LABEL 26) (MOVE O2 -12 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPN1 O1 29)
(SKIPE NIL -6 Q)
(LABEL 29) (JRST 27)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 22)
(LABEL 27) (SKIPN NIL -14 Q)
(JRST 30)
(MOVE O5 -14 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 32)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(LABEL 32) (JRST 31)
(LABEL 30) (MOVE O5 -15 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -6 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -6 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 34)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(LABEL 34)
(LABEL 31) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(JRST 26)
(LABEL 22) (JRST 21)
(LABEL 20) (MOVE O5 -13 Q)
(MOVEM O5 -6 Q)
(MOVE O5 (CONSTANT 5))
(MOVEM O5 -5 Q)
(LABEL 40) (MOVE O2 -12 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPE O1 41)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 36)
(LABEL 41) (SKIPN NIL -14 Q)
(JRST 43)
(MOVE O5 -14 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPE O1 45)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 45) (JRST 44)
(LABEL 43) (MOVE O5 -15 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -11 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -6 Q)
(MOVE O1 -9 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -10 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPE O1 47)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(LABEL 47)
(LABEL 44) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 40)
(LABEL 36)
(LABEL 21) (SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE COUNT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE COUNT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE COUNT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COUNT-IF) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the number of elements in SEQUENCE satisfying TEST(el)."))
#_(LAP #0_COUNT-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :START 0 :END :KEY IDENTITY (:KEY :END :START :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 14)
(MOVEM O1 -9 Q)
(MOVEM O2 -8 Q)
(MOVEM O3 -7 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -13 Q)
(MOVE O2 -7 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -12 Q)
(MOVE O2 -7 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -8 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -11 Q)
(MOVE O2 -7 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -10 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -8 Q)
(CALL LISTP 1)
(JUMPE O1 16)
(MOVE O2 -8 Q)
(MOVE O1 -12 Q)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -3 Q)
(LABEL 22) (MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPN1 O1 25)
(SKIPE NIL -5 Q)
(LABEL 25) (JRST 23)
(MOVE O1 -3 Q)
(MOVEI N 1)
(JRST 18)
(LABEL 23) (MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O6 -2 Q)
(FCALL 1)
(JUMPE O1 26)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(LABEL 26) (MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(JRST 22)
(LABEL 18) (JRST 17)
(LABEL 16) (MOVE O5 -12 Q)
(MOVEM O5 -5 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -4 Q)
(LABEL 32) (MOVE O2 -11 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 33)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 28)
(LABEL 33) (MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O6 -3 Q)
(FCALL 1)
(JUMPE O1 35)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(LABEL 35) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(JRST 32)
(LABEL 28)
(LABEL 17) (SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE COUNT-IF) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TEST SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE COUNT-IF) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE COUNT-IF) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE COUNT-IF-NOT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the number of elements in SEQUENCE not satisfying TEST(el)."))
#_(LAP #0_COUNT-IF-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :START 0 :END :KEY IDENTITY (:KEY :END :START :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 14)
(MOVEM O1 -9 Q)
(MOVEM O2 -8 Q)
(MOVEM O3 -7 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -13 Q)
(MOVE O2 -7 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -12 Q)
(MOVE O2 -7 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -8 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -11 Q)
(MOVE O2 -7 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -10 Q)
(MOVE O5 -7 Q)
(MOVEM O5 -6 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -8 Q)
(CALL LISTP 1)
(JUMPE O1 16)
(MOVE O2 -8 Q)
(MOVE O1 -12 Q)
(CALL NTHCDR 2)
(MOVEM O1 -5 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -3 Q)
(LABEL 22) (MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPN1 O1 25)
(SKIPE NIL -5 Q)
(LABEL 25) (JRST 23)
(MOVE O1 -3 Q)
(MOVEI N 1)
(JRST 18)
(LABEL 23) (MOVE O5 -9 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -5 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -5 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O6 -2 Q)
(FCALL 1)
(JUMPN O1 26)
(MOVE O1 -3 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(LABEL 26) (MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(JRST 22)
(LABEL 18) (JRST 17)
(LABEL 16) (MOVE O5 -12 Q)
(MOVEM O5 -5 Q)
(MOVE O5 (CONSTANT 2))
(MOVEM O5 -4 Q)
(LABEL 32) (MOVE O2 -11 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 33)
(MOVE O1 -4 Q)
(MOVEI N 1)
(JRST 28)
(LABEL 33) (MOVE O5 -9 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -5 Q)
(MOVE O1 -8 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O6 -3 Q)
(FCALL 1)
(JUMPN O1 35)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(LABEL 35) (MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(JRST 32)
(LABEL 28)
(LABEL 17) (SUBI Q 14)
(POPJ P)
)
(%PUT (QUOTE COUNT-IF-NOT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TEST SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE COUNT-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE COUNT-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FIND) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the first element in SEQUENCE satisfying the test (default
is EQL) with the given ITEM"))
#_(LAP #0_FIND EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START 0 :END :KEY IDENTITY (:KEY :END :START :TEST-NOT :TEST :FROM-END) -1 1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 19)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -18 Q)
(MOVE O2 -10 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -17 Q)
(MOVE O2 -10 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 12)
(MOVEM O1 -16 Q)
(MOVE O2 -10 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -15 Q)
(MOVE O2 -10 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(LABEL 15) (MOVEM O1 -14 Q)
(MOVE O2 -10 Q)
(LABEL 18) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 17)
(JUMPN O2 18)
(MOVE O1 (CONSTANT 8))
(LABEL 17) (MOVEM O1 -13 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -9 Q)
(MOVE O2 (CONSTANT 9))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -8 Q)
(MOVE O1 -11 Q)
(CALL LISTP 1)
(JUMPE O1 20)
(SKIPN NIL -18 Q)
(JRST 22)
(MOVE O2 -14 Q)
(MOVE O1 -8 Q)
(CALL - 2)
(MOVEM O1 -6 Q)
(MOVE O1 -11 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(MOVEM NIL -5 Q)
(LABEL 28) (MOVE O1 -15 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 31)
(SKIPE NIL -7 Q)
(LABEL 31) (JRST 29)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 24)
(LABEL 29) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(SKIPN NIL -16 Q)
(JRST 32)
(MOVE O5 -16 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPN O1 34)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 24)
(LABEL 34) (JRST 33)
(LABEL 32) (MOVE O5 -17 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPE O1 36)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 24)
(LABEL 36)
(LABEL 33) (MOVE O1 -6 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(JRST 28)
(LABEL 24) (JRST 23)
(LABEL 22) (MOVE O2 -11 Q)
(MOVE O1 -15 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(LABEL 42) (MOVE O2 -14 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 45)
(SKIPE NIL -7 Q)
(LABEL 45) (JRST 43)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 38)
(LABEL 43) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(SKIPN NIL -16 Q)
(JRST 46)
(MOVE O5 -16 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPN O1 48)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 38)
(LABEL 48) (JRST 47)
(LABEL 46) (MOVE O5 -17 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -5 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPE O1 50)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 38)
(LABEL 50)
(LABEL 47) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 42)
(LABEL 38)
(LABEL 23) (JRST 21)
(LABEL 20) (SKIPN NIL -18 Q)
(JRST 52)
(MOVE O5 (CONSTANT 10))
(MOVEM O5 -7 Q)
(JRST 53)
(LABEL 52) (MOVE O5 (CONSTANT 11))
(MOVEM O5 -7 Q)
(LABEL 53) (SKIPN NIL -18 Q)
(JRST 54)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(JRST 55)
(LABEL 54) (MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(LABEL 55) (SKIPN NIL -18 Q)
(JRST 56)
(MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(JRST 57)
(LABEL 56) (MOVE O5 -14 Q)
(MOVEM O5 -5 Q)
(LABEL 57) (MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVEM NIL -2 Q)
(LABEL 62) (MOVE O2 -5 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 63)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 58)
(LABEL 63) (MOVE O2 -3 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -2 Q)
(SKIPN NIL -16 Q)
(JRST 65)
(MOVE O5 -16 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(JUMPN O1 67)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 58)
(LABEL 67) (JRST 66)
(LABEL 65) (MOVE O5 -17 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(MOVE O1 -2 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -12 Q)
(MOVE O6 -1 Q)
(FCALL 2)
(JUMPE O1 69)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 58)
(LABEL 69)
(LABEL 66) (MOVE O2 -7 Q)
(MOVE O1 -3 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(JRST 62)
(LABEL 58)
(LABEL 21) (SUBI Q 19)
(POPJ P)
)
(%PUT (QUOTE FIND) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE FIND) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE FIND) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FIND-IF) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the zero-origin index of the first element satisfying the test."))
#_(LAP #0_FIND-IF EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :START 0 :END :KEY IDENTITY (:KEY :END :START :FROM-END) -1 1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -16 Q)
(MOVE O2 -10 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -15 Q)
(MOVE O2 -10 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -14 Q)
(MOVE O2 -10 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -13 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -9 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -8 Q)
(MOVE O1 -11 Q)
(CALL LISTP 1)
(JUMPE O1 16)
(SKIPN NIL -16 Q)
(JRST 18)
(MOVE O2 -14 Q)
(MOVE O1 -8 Q)
(CALL - 2)
(MOVEM O1 -6 Q)
(MOVE O1 -11 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(MOVEM NIL -5 Q)
(LABEL 24) (MOVE O1 -15 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 27)
(SKIPE NIL -7 Q)
(LABEL 27) (JRST 25)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 20)
(LABEL 25) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPE O1 28)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 20)
(LABEL 28) (MOVE O1 -6 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(JRST 24)
(LABEL 20) (JRST 19)
(LABEL 18) (MOVE O2 -11 Q)
(MOVE O1 -15 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(LABEL 34) (MOVE O2 -14 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 37)
(SKIPE NIL -7 Q)
(LABEL 37) (JRST 35)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 30)
(LABEL 35) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPE O1 38)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 30)
(LABEL 38) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 34)
(LABEL 30)
(LABEL 19) (JRST 17)
(LABEL 16) (SKIPN NIL -16 Q)
(JRST 40)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -7 Q)
(JRST 41)
(LABEL 40) (MOVE O5 (CONSTANT 8))
(MOVEM O5 -7 Q)
(LABEL 41) (SKIPN NIL -16 Q)
(JRST 42)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(JRST 43)
(LABEL 42) (MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(LABEL 43) (SKIPN NIL -16 Q)
(JRST 44)
(MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(JRST 45)
(LABEL 44) (MOVE O5 -14 Q)
(MOVEM O5 -5 Q)
(LABEL 45) (MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVEM NIL -2 Q)
(LABEL 50) (MOVE O2 -5 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 51)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 46)
(LABEL 51) (MOVE O2 -3 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -2 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPE O1 53)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 46)
(LABEL 53) (MOVE O2 -7 Q)
(MOVE O1 -3 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(JRST 50)
(LABEL 46)
(LABEL 17) (SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE FIND-IF) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TEST SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE FIND-IF) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE FIND-IF) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE FIND-IF-NOT) (QUOTE %FUN-DOCUMENTATION) (QUOTE "Returns the zero-origin index of the first element not satisfying the test."))
#_(LAP #0_FIND-IF-NOT EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :START 0 :END :KEY IDENTITY (:KEY :END :START :FROM-END) -1 1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 17)
(MOVEM O1 -12 Q)
(MOVEM O2 -11 Q)
(MOVEM O3 -10 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -16 Q)
(MOVE O2 -10 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -15 Q)
(MOVE O2 -10 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 3))
(JRST 11)
(JUMPN O2 12)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(LABEL 11) (MOVEM O1 -14 Q)
(MOVE O2 -10 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -13 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -9 Q)
(MOVE O2 (CONSTANT 6))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -11 Q)
(CALL LENGTH 1)
(MOVEM O1 -8 Q)
(MOVE O1 -11 Q)
(CALL LISTP 1)
(JUMPE O1 16)
(SKIPN NIL -16 Q)
(JRST 18)
(MOVE O2 -14 Q)
(MOVE O1 -8 Q)
(CALL - 2)
(MOVEM O1 -6 Q)
(MOVE O1 -11 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(MOVEM NIL -5 Q)
(LABEL 24) (MOVE O1 -15 Q)
(CALL 1- 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 27)
(SKIPE NIL -7 Q)
(LABEL 27) (JRST 25)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 20)
(LABEL 25) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPN O1 28)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 20)
(LABEL 28) (MOVE O1 -6 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(JRST 24)
(LABEL 20) (JRST 19)
(LABEL 18) (MOVE O2 -11 Q)
(MOVE O1 -15 Q)
(CALL NTHCDR 2)
(MOVEM O1 -7 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(MOVEM NIL -5 Q)
(LABEL 34) (MOVE O2 -14 Q)
(MOVE O1 -6 Q)
(CALL = 2)
(JUMPN1 O1 37)
(SKIPE NIL -7 Q)
(LABEL 37) (JRST 35)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 30)
(LABEL 35) (MOVE O1 -7 Q)
(MOVE O5 0 O1)
(MOVEM O5 -4 Q)
(MOVE O1 1 O1)
(MOVEM O1 -7 Q)
(MOVE O1 O5)
(MOVEM O1 -5 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -13 Q)
(MOVEM O5 -3 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -4 Q)
(FCALL 1)
(JUMPN O1 38)
(MOVE O1 -5 Q)
(MOVEI N 1)
(JRST 30)
(LABEL 38) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -6 Q)
(JRST 34)
(LABEL 30)
(LABEL 19) (JRST 17)
(LABEL 16) (SKIPN NIL -16 Q)
(JRST 40)
(MOVE O5 (CONSTANT 7))
(MOVEM O5 -7 Q)
(JRST 41)
(LABEL 40) (MOVE O5 (CONSTANT 8))
(MOVEM O5 -7 Q)
(LABEL 41) (SKIPN NIL -16 Q)
(JRST 42)
(MOVE O1 -14 Q)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(JRST 43)
(LABEL 42) (MOVE O5 -15 Q)
(MOVEM O5 -6 Q)
(LABEL 43) (SKIPN NIL -16 Q)
(JRST 44)
(MOVE O1 -15 Q)
(CALL 1- 1)
(MOVEM O1 -5 Q)
(JRST 45)
(LABEL 44) (MOVE O5 -14 Q)
(MOVEM O5 -5 Q)
(LABEL 45) (MOVE O5 -6 Q)
(MOVEM O5 -3 Q)
(MOVEM NIL -2 Q)
(LABEL 50) (MOVE O2 -5 Q)
(MOVE O1 -3 Q)
(CALL = 2)
(JUMPE O1 51)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 46)
(LABEL 51) (MOVE O2 -3 Q)
(MOVE O1 -11 Q)
(CALL AREF 2)
(MOVEM O1 -2 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -1 Q)
(MOVE O5 -13 Q)
(MOVEM O5 0 Q)
(MOVE O6 O5)
(FCALL 1)
(MOVE O6 -1 Q)
(FCALL 1)
(JUMPN O1 53)
(MOVE O1 -2 Q)
(MOVEI N 1)
(JRST 46)
(LABEL 53) (MOVE O2 -7 Q)
(MOVE O1 -3 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(JRST 50)
(LABEL 46)
(LABEL 17) (SUBI Q 17)
(POPJ P)
)
(%PUT (QUOTE FIND-IF-NOT) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (TEST SEQUENCE &KEY FROM-END (START 0) (END (LENGTH SEQUENCE)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE FIND-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE FIND-IF-NOT) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE MISMATCH) (QUOTE %FUN-DOCUMENTATION) (QUOTE "The specified subsequences of Sequence1 and Sequence2 are compared
element-wise. If they are of equal length and match in every element, the
result is Nil. Otherwise, the result is a non-negative integer, the index
within Sequence1 of the leftmost position at which they fail to match; or, if
one is shorter than and a matching prefix of the other, the index within
Sequence1 beyond the last position tested is returned. If a non-Nil :From-End
keyword argument is given, then one plus the index of the rightmost position in
which the sequences differ is returned."))
#_(LAP #0_MISMATCH EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START1 0 :END1 :START2 :END2 :KEY IDENTITY (:KEY :END2 :START2 :END1 :START1 :TEST-NOT :TEST :FROM-END) -1 1)
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 26)
(MOVEM O1 -17 Q)
(MOVEM O2 -16 Q)
(MOVEM O3 -15 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -25 Q)
(MOVE O2 -15 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -24 Q)
(MOVE O2 -15 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 12)
(MOVEM O1 -23 Q)
(MOVE O2 -15 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -22 Q)
(MOVE O2 -15 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(LABEL 15) (MOVEM O1 -21 Q)
(MOVE O2 -15 Q)
(LABEL 18) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 17)
(JUMPN O2 18)
(MOVE O1 (CONSTANT 5))
(LABEL 17) (MOVEM O1 -20 Q)
(MOVE O2 -15 Q)
(LABEL 20) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 8))
(JRST 19)
(JUMPN O2 20)
(MOVE O1 -16 Q)
(CALL LENGTH 1)
(LABEL 19) (MOVEM O1 -19 Q)
(MOVE O2 -15 Q)
(LABEL 22) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 9))
(JRST 21)
(JUMPN O2 22)
(MOVE O1 (CONSTANT 10))
(LABEL 21) (MOVEM O1 -18 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -14 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -17 Q)
(CALL LENGTH 1)
(MOVEM O1 -13 Q)
(MOVE O1 -16 Q)
(CALL LENGTH 1)
(MOVEM O1 -12 Q)
(SKIPN NIL -25 Q)
(JRST 24)
(MOVE O5 (CONSTANT 12))
(MOVEM O5 -11 Q)
(JRST 25)
(LABEL 24) (MOVE O5 (CONSTANT 13))
(MOVEM O5 -11 Q)
(LABEL 25) (SKIPN NIL -25 Q)
(JRST 26)
(MOVE O1 -21 Q)
(CALL 1- 1)
(MOVEM O1 -10 Q)
(JRST 27)
(LABEL 26) (MOVE O5 -22 Q)
(MOVEM O5 -10 Q)
(LABEL 27) (SKIPN NIL -25 Q)
(JRST 28)
(MOVE O1 -19 Q)
(CALL 1- 1)
(MOVEM O1 -9 Q)
(JRST 29)
(LABEL 28) (MOVE O5 -20 Q)
(MOVEM O5 -9 Q)
(LABEL 29) (SKIPN NIL -25 Q)
(JRST 30)
(MOVE O1 -22 Q)
(CALL 1- 1)
(MOVEM O1 -8 Q)
(JRST 31)
(LABEL 30) (MOVE O5 -21 Q)
(MOVEM O5 -8 Q)
(LABEL 31) (SKIPN NIL -25 Q)
(JRST 32)
(MOVE O1 -20 Q)
(CALL 1- 1)
(MOVEM O1 -7 Q)
(JRST 33)
(LABEL 32) (MOVE O5 -19 Q)
(MOVEM O5 -7 Q)
(LABEL 33) (MOVE O1 -17 Q)
(CALL LISTP 1)
(JUMPE O1 34)
(SKIPN NIL -25 Q)
(JRST 36)
(MOVE O2 -10 Q)
(MOVE O1 -13 Q)
(CALL - 2)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(MOVE O1 -17 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL NTHCDR 2)
(JRST 37)
(LABEL 36) (MOVE O2 -17 Q)
(MOVE O1 -10 Q)
(CALL NTHCDR 2)
(LABEL 37) (MOVEM O1 -17 Q)
(MOVE O1 -16 Q)
(CALL LISTP 1)
(JUMPE O1 38)
(SKIPN NIL -25 Q)
(JRST 40)
(MOVE O2 -9 Q)
(MOVE O1 -12 Q)
(CALL - 2)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(MOVE O1 -16 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL NTHCDR 2)
(JRST 41)
(LABEL 40) (MOVE O2 -16 Q)
(MOVE O1 -9 Q)
(CALL NTHCDR 2)
(LABEL 41) (MOVEM O1 -16 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 46) (JRST 47)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 42)
(LABEL 47) (MOVE O2 -8 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 50)
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 51)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 52)
(LABEL 51) (SKIPN NIL -25 Q)
(JRST 53)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 54)
(LABEL 53) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 54)
(LABEL 52) (JRST 42)
(LABEL 50) (MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 55)
(SKIPN NIL -25 Q)
(JRST 56)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 57)
(LABEL 56) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 57) (JRST 42)
(LABEL 55) (SKIPN NIL -23 Q)
(JRST 58)
(MOVE O5 -23 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -17 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -17 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -16 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -16 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 59)
(SKIPN NIL -25 Q)
(JRST 61)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 62)
(LABEL 61) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 62) (JRST 42)
(LABEL 59) (JRST 49)
(LABEL 58) (SKIPA)
(JRST 63)
(MOVE O5 -24 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -17 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -17 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -16 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -16 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPN O1 64)
(SKIPN NIL -25 Q)
(JRST 66)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 67)
(LABEL 66) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 67) (JRST 42)
(LABEL 64)
(LABEL 63)
(LABEL 49) (MOVE O2 -11 Q)
(MOVE O1 -5 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 46)
(LABEL 42) (JRST 39)
(LABEL 38) (MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 73) (JRST 74)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 69)
(LABEL 74) (MOVE O2 -8 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 77)
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 78)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 79)
(LABEL 78) (SKIPN NIL -25 Q)
(JRST 80)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 81)
(LABEL 80) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 81)
(LABEL 79) (JRST 69)
(LABEL 77) (MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 82)
(SKIPN NIL -25 Q)
(JRST 83)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 84)
(LABEL 83) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 84) (JRST 69)
(LABEL 82) (SKIPN NIL -23 Q)
(JRST 85)
(MOVE O5 -23 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -17 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -17 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 -16 Q)
(CALL AREF 2)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 86)
(SKIPN NIL -25 Q)
(JRST 88)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 89)
(LABEL 88) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 89) (JRST 69)
(LABEL 86) (JRST 76)
(LABEL 85) (SKIPA)
(JRST 90)
(MOVE O5 -24 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -17 Q)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O1 1 O1)
(MOVEM O1 -17 Q)
(MOVE O1 O5)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 -16 Q)
(CALL AREF 2)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPN O1 91)
(SKIPN NIL -25 Q)
(JRST 93)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 94)
(LABEL 93) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 94) (JRST 69)
(LABEL 91)
(LABEL 90)
(LABEL 76) (MOVE O2 -11 Q)
(MOVE O1 -5 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 73)
(LABEL 69)
(LABEL 39) (JRST 35)
(LABEL 34) (MOVE O1 -16 Q)
(CALL LISTP 1)
(JUMPE O1 96)
(SKIPN NIL -25 Q)
(JRST 98)
(MOVE O2 -9 Q)
(MOVE O1 -12 Q)
(CALL - 2)
(CALL 1- 1)
(MOVEM O1 -6 Q)
(MOVE O1 -16 Q)
(CALL REVERSE 1)
(MOVE O2 O1)
(MOVE O1 -6 Q)
(CALL NTHCDR 2)
(JRST 99)
(LABEL 98) (MOVE O2 -16 Q)
(MOVE O1 -9 Q)
(CALL NTHCDR 2)
(LABEL 99) (MOVEM O1 -16 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 104) (JRST 105)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 100)
(LABEL 105) (MOVE O2 -8 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 108)
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 109)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 110)
(LABEL 109) (SKIPN NIL -25 Q)
(JRST 111)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 112)
(LABEL 111) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 112)
(LABEL 110) (JRST 100)
(LABEL 108) (MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 113)
(SKIPN NIL -25 Q)
(JRST 114)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 115)
(LABEL 114) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 115) (JRST 100)
(LABEL 113) (SKIPN NIL -23 Q)
(JRST 116)
(MOVE O5 -23 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -5 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -16 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -16 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 117)
(SKIPN NIL -25 Q)
(JRST 119)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 120)
(LABEL 119) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 120) (JRST 100)
(LABEL 117) (JRST 107)
(LABEL 116) (SKIPA)
(JRST 121)
(MOVE O5 -24 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -5 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -16 Q)
(MOVE O5 0 O1)
(MOVEM O5 0 Q)
(MOVE O1 1 O1)
(MOVEM O1 -16 Q)
(MOVE O1 O5)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPN O1 122)
(SKIPN NIL -25 Q)
(JRST 124)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 125)
(LABEL 124) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 125) (JRST 100)
(LABEL 122)
(LABEL 121)
(LABEL 107) (MOVE O2 -11 Q)
(MOVE O1 -5 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 104)
(LABEL 100) (JRST 97)
(LABEL 96) (MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -9 Q)
(MOVEM O5 -4 Q)
(LABEL 131) (JRST 132)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 127)
(LABEL 132) (MOVE O2 -8 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 135)
(MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 136)
(MOVE O1 NIL)
(MOVEI N 1)
(JRST 137)
(LABEL 136) (SKIPN NIL -25 Q)
(JRST 138)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 139)
(LABEL 138) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 139)
(LABEL 137) (JRST 127)
(LABEL 135) (MOVE O2 -7 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(JUMPE O1 140)
(SKIPN NIL -25 Q)
(JRST 141)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 142)
(LABEL 141) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 142) (JRST 127)
(LABEL 140) (SKIPN NIL -23 Q)
(JRST 143)
(MOVE O5 -23 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -5 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 -16 Q)
(CALL AREF 2)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 144)
(SKIPN NIL -25 Q)
(JRST 146)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 147)
(LABEL 146) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 147) (JRST 127)
(LABEL 144) (JRST 134)
(LABEL 143) (SKIPA)
(JRST 148)
(MOVE O5 -24 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -5 Q)
(MOVE O1 -17 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -18 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 -16 Q)
(CALL AREF 2)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPN O1 149)
(SKIPN NIL -25 Q)
(JRST 151)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(JRST 152)
(LABEL 151) (MOVE O1 -5 Q)
(MOVEI N 1)
(LABEL 152) (JRST 127)
(LABEL 149)
(LABEL 148)
(LABEL 134) (MOVE O2 -11 Q)
(MOVE O1 -5 Q)
(CALL + 2)
(MOVEM O1 -3 Q)
(MOVE O2 -11 Q)
(MOVE O1 -4 Q)
(CALL + 2)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 131)
(LABEL 127)
(LABEL 97)
(LABEL 35) (SUBI Q 26)
(POPJ P)
)
(%PUT (QUOTE MISMATCH) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE1 SEQUENCE2 &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START1 0) (END1 (LENGTH SEQUENCE1)) (START2 0) (END2 (LENGTH SEQUENCE2)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE MISMATCH) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE MISMATCH) (QUOTE %SOURCE-DOCUMENTATION))))
(%PUT (QUOTE SEARCH) (QUOTE %FUN-DOCUMENTATION) (QUOTE "A search is conducted using EQL for the first subsequence of sequence2
which element-wise matches sequence1. If there is such a subsequence in
sequence2, the index of the its leftmost element is returned;
otherwise () is returned."))
#_(LAP #0_SEARCH EXPR
(ENTRY-POINTS (2-FEW 2-FEW 2 3 4 5 6) REST)
#0_(:FROM-END :TEST EQL :TEST-NOT :START1 0 :END1 :START2 :END2 :KEY IDENTITY (:KEY :END2 :START2 :END1 :START1 :TEST-NOT :TEST :FROM-END))
(CODE-START)
(LABEL 2) (MOVE O3 NIL)
(JRST 1)
(LABEL 3) (MOVEI W2 1)
(ICALL REST3)
(JRST 1)
(LABEL 4) (MOVEI W2 2)
(ICALL REST4)
(JRST 1)
(LABEL 5) (MOVEI W2 3)
(ICALL REST5)
(JRST 1)
(LABEL 6) (MOVEI W2 2)
(ICALL RESTX)
(LABEL 1) (ADDI Q 23)
(MOVEM O1 -14 Q)
(MOVEM O2 -13 Q)
(MOVEM O3 -12 Q)
(MOVE O2 O3)
(LABEL 8) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 0))
(JUMPN O4 8)
(MOVEM O1 -22 Q)
(MOVE O2 -12 Q)
(LABEL 10) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 1))
(JRST 9)
(JUMPN O2 10)
(MOVE O1 (CONSTANT 2))
(LABEL 9) (MOVEM O1 -21 Q)
(MOVE O2 -12 Q)
(LABEL 12) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAME O3 (CONSTANT 3))
(JUMPN O4 12)
(MOVEM O1 -20 Q)
(MOVE O2 -12 Q)
(LABEL 14) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 4))
(JRST 13)
(JUMPN O2 14)
(MOVE O1 (CONSTANT 5))
(LABEL 13) (MOVEM O1 -19 Q)
(MOVE O2 -12 Q)
(LABEL 16) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 6))
(JRST 15)
(JUMPN O2 16)
(MOVE O1 -14 Q)
(CALL LENGTH 1)
(LABEL 15) (MOVEM O1 -18 Q)
(MOVE O2 -12 Q)
(LABEL 18) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 7))
(JRST 17)
(JUMPN O2 18)
(MOVE O1 (CONSTANT 5))
(LABEL 17) (MOVEM O1 -17 Q)
(MOVE O2 -12 Q)
(LABEL 20) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 8))
(JRST 19)
(JUMPN O2 20)
(MOVE O1 -13 Q)
(CALL LENGTH 1)
(LABEL 19) (MOVEM O1 -16 Q)
(MOVE O2 -12 Q)
(LABEL 22) (DMOVE O3 0 O2)
(DMOVE O1 0 O4)
(CAMN O3 (CONSTANT 9))
(JRST 21)
(JUMPN O2 22)
(MOVE O1 (CONSTANT 10))
(LABEL 21) (MOVEM O1 -15 Q)
(MOVE O5 -12 Q)
(MOVEM O5 -11 Q)
(MOVE O2 (CONSTANT 11))
(MOVE O1 O5)
(CALL LISP::KEYWORD-TEST 2)
(MOVE O1 -13 Q)
(CALL LISTP 1)
(JUMPE O1 24)
(MOVE O2 -13 Q)
(MOVE O1 -17 Q)
(CALL NTHCDR 2)
(MOVEM O1 -10 Q)
(MOVE O5 -17 Q)
(MOVEM O5 -9 Q)
(MOVE O2 -19 Q)
(MOVE O1 -18 Q)
(CALL - 2)
(MOVE O2 O1)
(MOVE O1 -16 Q)
(CALL - 2)
(MOVEM O1 -8 Q)
(MOVEM NIL -7 Q)
(LABEL 30) (MOVE O2 -8 Q)
(MOVE O1 -9 Q)
(CALL > 2)
(JUMPE O1 31)
(MOVE O1 -7 Q)
(MOVEI N 1)
(JRST 26)
(LABEL 31) (MOVE O1 -14 Q)
(CALL LISTP 1)
(JUMPE O1 35)
(MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -4 Q)
(MOVE O2 -14 Q)
(MOVE O1 O5)
(CALL NTHCDR 2)
(MOVEM O1 -3 Q)
(LABEL 41) (SKIPN NIL -5 Q)
(JRST1 44)
(SKIPN NIL -3 Q)
(JRST1 44)
(MOVE O2 -4 Q)
(MOVE O1 -18 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 44) (JRST 42)
(JRST1 37)
(LABEL 42) (SKIPN NIL -20 Q)
(JRST 45)
(MOVE O5 -20 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -1 Q)
(MOVE O5 -15 Q)
(MOVEM O5 0 Q)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVE O6 -2 Q)
(FCALL 2)
(JUMPE O1 47)
(JRST 37)
(JRST1 37)
(LABEL 47) (JRST 46)
(LABEL 45) (MOVE O5 -21 Q)
(MOVEM O5 -2 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -3 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -1 Q)
(MOVE O5 -15 Q)
(MOVEM O5 0 Q)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -1 Q)
(MOVE O6 -2 Q)
(FCALL 2)
(JUMPN O1 49)
(JRST 37)
(JRST1 37)
(LABEL 49)
(LABEL 46) (MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -2 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(MOVE O5 1 O1)
(MOVEM O5 0 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(MOVE O1 O5)
(MOVEM O1 -3 Q)
(JRST 41)
(LABEL 37) (JRST 36)
(JRST1 36)
(LABEL 35) (MOVE O5 -10 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -4 Q)
(LABEL 55) (SKIPN NIL -5 Q)
(JRST1 58)
(MOVE O2 -18 Q)
(MOVE O1 -4 Q)
(CALL = 2)
(SKIPN NIL O1)
(LABEL 58) (JRST 56)
(JRST1 51)
(LABEL 56) (SKIPN NIL -20 Q)
(JRST 59)
(MOVE O5 -20 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 -14 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 61)
(JRST 51)
(JRST1 51)
(LABEL 61) (JRST 60)
(LABEL 59) (MOVE O5 -21 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -4 Q)
(MOVE O1 -14 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O1 -5 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPN O1 63)
(JRST 51)
(JRST1 51)
(LABEL 63)
(LABEL 60) (MOVE O1 -5 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -4 Q)
(JRST 55)
(LABEL 51)
(LABEL 36) (JRST 33)
(SKIPN NIL -22 Q)
(JRST 65)
(MOVE O1 -9 Q)
(MOVEM O1 -7 Q)
(JRST 66)
(LABEL 65) (MOVE O1 -9 Q)
(MOVEI N 1)
(JRST 26)
(LABEL 66)
(LABEL 33) (MOVE O1 -10 Q)
(MOVE O5 1 O1)
(MOVEM O5 -6 Q)
(MOVE O1 -9 Q)
(CALL 1+ 1)
(MOVEM O1 -5 Q)
(MOVE O1 -6 Q)
(MOVEM O1 -10 Q)
(MOVE O1 -5 Q)
(MOVEM O1 -9 Q)
(JRST 30)
(LABEL 26) (JRST 25)
(LABEL 24) (MOVE O5 -17 Q)
(MOVEM O5 -10 Q)
(MOVE O2 -19 Q)
(MOVE O1 -18 Q)
(CALL - 2)
(MOVE O2 O1)
(MOVE O1 -16 Q)
(CALL - 2)
(MOVEM O1 -9 Q)
(MOVEM NIL -8 Q)
(LABEL 71) (MOVE O2 -9 Q)
(MOVE O1 -10 Q)
(CALL > 2)
(JUMPE O1 72)
(MOVE O1 -8 Q)
(MOVEI N 1)
(JRST 67)
(LABEL 72) (MOVE O1 -14 Q)
(CALL LISTP 1)
(JUMPE O1 76)
(MOVE O2 -14 Q)
(MOVE O1 -19 Q)
(CALL NTHCDR 2)
(MOVEM O1 -6 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -5 Q)
(MOVE O5 -10 Q)
(MOVEM O5 -4 Q)
(LABEL 82) (MOVE O2 -5 Q)
(MOVE O1 -18 Q)
(CALL = 2)
(JUMPN1 O1 85)
(SKIPE NIL -6 Q)
(LABEL 85) (JRST 83)
(JRST1 78)
(LABEL 83) (SKIPN NIL -20 Q)
(JRST 86)
(MOVE O5 -20 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 -13 Q)
(CALL AREF 2)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPE O1 88)
(JRST 78)
(JRST1 78)
(LABEL 88) (JRST 87)
(LABEL 86) (MOVE O5 -21 Q)
(MOVEM O5 -3 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -2 Q)
(MOVE O1 -6 Q)
(MOVE O1 0 O1)
(MOVE O6 O5)
(FCALL 1)
(MOVEM O1 -2 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -1 Q)
(MOVE O2 -4 Q)
(MOVE O1 -13 Q)
(CALL AREF 2)
(MOVE O6 -1 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -2 Q)
(MOVE O6 -3 Q)
(FCALL 2)
(JUMPN O1 90)
(JRST 78)
(JRST1 78)
(LABEL 90)
(LABEL 87) (MOVE O1 -6 Q)
(MOVE O5 1 O1)
(MOVEM O5 -3 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -2 Q)
(MOVE O1 -4 Q)
(CALL 1+ 1)
(MOVEM O1 -1 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -2 Q)
(MOVEM O1 -5 Q)
(MOVE O1 -1 Q)
(MOVEM O1 -4 Q)
(JRST 82)
(LABEL 78) (JRST 77)
(JRST1 77)
(LABEL 76) (MOVE O5 -10 Q)
(MOVEM O5 -6 Q)
(MOVE O5 -19 Q)
(MOVEM O5 -5 Q)
(LABEL 96) (MOVE O2 -18 Q)
(MOVE O1 -5 Q)
(CALL = 2)
(JUMPE O1 97)
(JRST1 92)
(LABEL 97) (SKIPN NIL -20 Q)
(JRST 99)
(MOVE O5 -20 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -14 Q)
(CALL AREF 2)
(MOVE O6 -3 Q)
(FCALL 1)
(MOVEM O1 -3 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -6 Q)
(MOVE O1 -13 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPE O1 101)
(JRST 92)
(JRST1 92)
(LABEL 101) (JRST 100)
(LABEL 99) (MOVE O5 -21 Q)
(MOVEM O5 -4 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -3 Q)
(MOVE O2 -5 Q)
(MOVE O1 -14 Q)
(CALL AREF 2)
(MOVE O6 -3 Q)
(FCALL 1)
(MOVEM O1 -3 Q)
(MOVE O5 -15 Q)
(MOVEM O5 -2 Q)
(MOVE O2 -6 Q)
(MOVE O1 -13 Q)
(CALL AREF 2)
(MOVE O6 -2 Q)
(FCALL 1)
(MOVE O2 O1)
(MOVE O1 -3 Q)
(MOVE O6 -4 Q)
(FCALL 2)
(JUMPN O1 103)
(JRST 92)
(JRST1 92)
(LABEL 103)
(LABEL 100) (MOVE O1 -6 Q)
(CALL 1+ 1)
(MOVEM O1 -4 Q)
(MOVE O1 -5 Q)
(CALL 1+ 1)
(MOVEM O1 -3 Q)
(MOVE O1 -4 Q)
(MOVEM O1 -6 Q)
(MOVE O1 -3 Q)
(MOVEM O1 -5 Q)
(JRST 96)
(LABEL 92)
(LABEL 77) (JRST 74)
(SKIPN NIL -22 Q)
(JRST 105)
(MOVE O1 -10 Q)
(MOVEM O1 -8 Q)
(JRST 106)
(LABEL 105) (MOVE O1 -10 Q)
(MOVEI N 1)
(JRST 67)
(LABEL 106)
(LABEL 74) (MOVE O1 -10 Q)
(CALL 1+ 1)
(MOVEM O1 -10 Q)
(JRST 71)
(LABEL 67)
(LABEL 25) (SUBI Q 23)
(POPJ P)
)
(%PUT (QUOTE SEARCH) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (SEQUENCE1 SEQUENCE2 &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT (START1 0) (END1 (LENGTH SEQUENCE1)) (START2 0) (END2 (LENGTH SEQUENCE2)) (KEY (FUNCTION IDENTITY)))))
(%PUT (QUOTE SEARCH) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>SEQ.CLISP.17") (GET (QUOTE SEARCH) (QUOTE %SOURCE-DOCUMENTATION))))