242 lines
7.3 KiB
Common Lisp
242 lines
7.3 KiB
Common Lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Beowulf 0.3.0-SNAPSHOT Sysout file generated at 2023-04-05T23:30:32.954
|
|
;; generated by simon
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
((NIL 32767 APVAL NIL)
|
|
(T 32767 APVAL T)
|
|
(F 32767 APVAL NIL)
|
|
(ADD1 32767 SUBR (BEOWULF HOST ADD1))
|
|
(AND 32767 SUBR (BEOWULF HOST AND))
|
|
(APPEND
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X Y) (COND ((NULL X) Y) (T (CONS (CAR X) (APPEND (CDR X) Y))))))
|
|
(APPLY 32767 SUBR (BEOWULF BOOTSTRAP APPLY))
|
|
(ASSOC
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X L)
|
|
(COND
|
|
((NULL L) NIL)
|
|
((AND (CONSP (CAR L)) (EQ (CAAR L) X)) (CAR L))
|
|
(T (ASSOC X (CDR L)))))
|
|
SUBR (BEOWULF HOST ASSOC))
|
|
(ATOM 32767 SUBR (BEOWULF HOST ATOM))
|
|
(CAR 32767 SUBR (BEOWULF HOST CAR))
|
|
(CAAAAR 32767 EXPR (LAMBDA (X) (CAR (CAR (CAR (CAR X))))))
|
|
(CAAADR 32767 EXPR (LAMBDA (X) (CAR (CAR (CAR (CDR X))))))
|
|
(CAAAR 32767 EXPR (LAMBDA (X) (CAR (CAR (CAR X)))))
|
|
(CAADAR 32767 EXPR (LAMBDA (X) (CAR (CAR (CDR (CAR X))))))
|
|
(CAADDR 32767 EXPR (LAMBDA (X) (CAR (CAR (CDR (CDR X))))))
|
|
(CAADR 32767 EXPR (LAMBDA (X) (CAR (CAR (CDR X)))))
|
|
(CAAR 32767 EXPR (LAMBDA (X) (CAR (CAR X))))
|
|
(CADAAR 32767 EXPR (LAMBDA (X) (CAR (CDR (CAR (CAR X))))))
|
|
(CADADR 32767 EXPR (LAMBDA (X) (CAR (CDR (CAR (CDR X))))))
|
|
(CADAR 32767 EXPR (LAMBDA (X) (CAR (CDR (CAR X)))))
|
|
(CADDAR 32767 EXPR (LAMBDA (X) (CAR (CDR (CDR (CAR X))))))
|
|
(CADDDR 32767 EXPR (LAMBDA (X) (CAR (CDR (CDR (CDR X))))))
|
|
(CADDR 32767 EXPR (LAMBDA (X) (CAR (CDR (CDR X)))))
|
|
(CADR 32767 EXPR (LAMBDA (X) (CAR (CDR X))))
|
|
(CDAAAR 32767 EXPR (LAMBDA (X) (CDR (CAR (CAR (CAR X))))))
|
|
(CDAADR 32767 EXPR (LAMBDA (X) (CDR (CAR (CAR (CDR X))))))
|
|
(CDAAR 32767 EXPR (LAMBDA (X) (CDR (CAR (CAR X)))))
|
|
(CDADAR 32767 EXPR (LAMBDA (X) (CDR (CAR (CDR (CAR X))))))
|
|
(CDADDR 32767 EXPR (LAMBDA (X) (CDR (CAR (CDR (CDR X))))))
|
|
(CDADR 32767 EXPR (LAMBDA (X) (CDR (CAR (CDR X)))))
|
|
(CDAR 32767 EXPR (LAMBDA (X) (CDR (CAR X))))
|
|
(CDDAAR 32767 EXPR (LAMBDA (X) (CDR (CDR (CAR (CAR X))))))
|
|
(CDDADR 32767 EXPR (LAMBDA (X) (CDR (CDR (CAR (CDR X))))))
|
|
(CDDAR 32767 EXPR (LAMBDA (X) (CDR (CDR (CAR X)))))
|
|
(CDDDAR 32767 EXPR (LAMBDA (X) (CDR (CDR (CDR (CAR X))))))
|
|
(CDDDDR 32767 EXPR (LAMBDA (X) (CDR (CDR (CDR (CDR X))))))
|
|
(CDDDR 32767 EXPR (LAMBDA (X) (CDR (CDR (CDR X)))))
|
|
(CDDR 32767 EXPR (LAMBDA (X) (CDR (CDR X))))
|
|
(CDR 32767 SUBR (BEOWULF HOST CDR))
|
|
(CONS 32767 SUBR (BEOWULF HOST CONS))
|
|
(CONSP 32767 SUBR (BEOWULF HOST CONSP))
|
|
(COPY
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X)
|
|
(COND
|
|
((NULL X) NIL)
|
|
((ATOM X) X) (T (CONS (COPY (CAR X)) (COPY (CDR X)))))))
|
|
(DEFINE 32767 SUBR (BEOWULF HOST DEFINE))
|
|
(DIFFERENCE 32767 SUBR (BEOWULF HOST DIFFERENCE))
|
|
(DIVIDE
|
|
32767
|
|
EXPR
|
|
(LAMBDA (X Y) (CONS (QUOTIENT X Y) (CONS (REMAINDER X Y) NIL))))
|
|
(DOC 32767 SUBR (BEOWULF HOST DOC))
|
|
(EFFACE
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X L)
|
|
(COND
|
|
((NULL L) NIL)
|
|
((EQUAL X (CAR L)) (CDR L)) (T (RPLACD L (EFFACE X (CDR L)))))))
|
|
(ERROR 32767 SUBR (BEOWULF HOST ERROR))
|
|
(EQ 32767 SUBR (BEOWULF HOST EQ))
|
|
(EQUAL 32767 SUBR (BEOWULF HOST EQUAL))
|
|
(EVAL 32767 SUBR (BEOWULF BOOTSTRAP EVAL))
|
|
(FACTORIAL
|
|
32767
|
|
EXPR (LAMBDA (N) (COND ((EQ N 1) 1) (T (TIMES N (FACTORIAL (SUB1 N)))))))
|
|
(FIXP 32767 SUBR (BEOWULF HOST FIXP))
|
|
(GENSYM 32767 SUBR (BEOWULF HOST GENSYM))
|
|
(GET
|
|
32767
|
|
;; EXPR
|
|
;; (LAMBDA
|
|
;; (X Y)
|
|
;; (COND
|
|
;; ((NULL X) NIL)
|
|
;; ((EQ (CAR X) Y) (CAR (CDR X))) (T (GET (CDR X) Y))))
|
|
SUBR (BEOWULF HOST GET))
|
|
(GREATERP 32767 SUBR (BEOWULF HOST GREATERP))
|
|
(INTEROP 32767 SUBR (BEOWULF INTEROP INTEROP))
|
|
(INTERSECTION
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X Y)
|
|
(COND
|
|
((NULL X) NIL)
|
|
((MEMBER (CAR X) Y) (CONS (CAR X) (INTERSECTION (CDR X) Y)))
|
|
(T (INTERSECTION (CDR X) Y)))))
|
|
(LENGTH
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(L)
|
|
(COND ((EQ NIL L) 0) ((CONSP (CDR L)) (ADD1 (LENGTH (CDR L)))) (T 1))))
|
|
(LESSP 32767 SUBR (BEOWULF HOST LESSP))
|
|
(MAPLIST
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(L F)
|
|
(COND
|
|
((NULL L) NIL) (T (CONS (F (CAR L)) (MAPLIST (CDR L) F))))))
|
|
(MEMBER
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(A X)
|
|
(COND
|
|
((NULL X) (QUOTE F))
|
|
((EQ A (CAR X)) T) (T (MEMBER A (CDR X))))))
|
|
(MINUSP 32767 EXPR (LAMBDA (X) (LESSP X 0)))
|
|
(NOT 32767 EXPR (LAMBDA (X) (COND (X NIL) (T T))))
|
|
(NULL
|
|
32767 EXPR (LAMBDA (X) (COND ((EQUAL X NIL) T) (T (QUOTE F)))))
|
|
(NUMBERP 32767 SUBR (BEOWULF HOST NUMBERP))
|
|
(OBLIST 32767 SUBR (BEOWULF HOST OBLIST))
|
|
(ONEP 32767 EXPR (LAMBDA (X) (EQ X 1)))
|
|
(OR 32767 SUBR (BEOWULF HOST OR))
|
|
(PAIR
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X Y)
|
|
(COND
|
|
((AND (NULL X) (NULL Y)) NIL)
|
|
((NULL X) (ERROR (QUOTE F2)))
|
|
((NULL Y) (ERROR (QUOTE F3)))
|
|
(T (CONS (CONS (CAR X) (CAR Y)) (PAIR (CDR X) (CDR Y)))))))
|
|
(PAIRLIS
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X Y A)
|
|
(COND
|
|
((NULL X) A)
|
|
(T (CONS (CONS (CAR X) (CAR Y)) (PAIRLIS (CDR X) (CDR Y) A)))))
|
|
SUBR (BEOWULF HOST PAIRLIS))
|
|
(PLUS 32767 SUBR (BEOWULF HOST PLUS))
|
|
(PRETTY 32767)
|
|
(PRINT 32767)
|
|
(PROG 32767 FSUBR (BEOWULF HOST PROG))
|
|
(PROP
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X Y U)
|
|
(COND
|
|
((NULL X) (U))
|
|
((EQ (CAR X) Y) (CDR X)) (T (PROP (CDR X) Y U)))))
|
|
(PUT 32767 SUBR (BEOWULF HOST PUT))
|
|
(QUOTE 32767 EXPR (LAMBDA (X) X))
|
|
(QUOTIENT 32767 SUBR (BEOWULF HOST QUOTIENT))
|
|
(RANGE
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(N M)
|
|
(COND
|
|
((LESSP M N) NIL) (T (CONS N (RANGE (ADD1 N) M))))))
|
|
(READ 32767 SUBR (BEOWULF READ READ))
|
|
(REMAINDER 32767 SUBR (BEOWULF HOST REMAINDER))
|
|
(REPEAT
|
|
32767
|
|
EXPR
|
|
(LAMBDA (N X) (COND ((EQ N 0) NIL) (T (CONS X (REPEAT (SUB1 N) X))))))
|
|
(RPLACA 32767 SUBR (BEOWULF HOST RPLACA))
|
|
(RPLACD 32767 SUBR (BEOWULF HOST RPLACD))
|
|
(SEARCH 32767 EXPR
|
|
(LAMBDA (X P F U)
|
|
(COND ((NULL X) (U X))
|
|
((P X) (F X))
|
|
((QUOTE T) (SEARCH (CDR X) P F U)))))
|
|
(SET 32767 SUBR (BEOWULF HOST SET))
|
|
(SUB1 32767 EXPR (LAMBDA (N) (DIFFERENCE N 1)) SUBR (BEOWULF HOST SUB1))
|
|
(SUB2
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(A Z)
|
|
(COND
|
|
((NULL A) Z) ((EQ (CAAR A) Z) (CDAR A)) (T (SUB2 (CDAR A) Z)))))
|
|
(SUBLIS
|
|
32767 EXPR
|
|
(LAMBDA (X Y)
|
|
(COND ((NULL X) Y)
|
|
((NULL Y) Y)
|
|
((QUOTE T) (SEARCH X
|
|
(LAMBDA (J) (EQUAL Y (CAAR J)))
|
|
(LAMBDA (J) (CDAR J))
|
|
(LAMBDA (J) (COND ((ATOM Y) Y)
|
|
((QUOTE T) (CONS
|
|
(SUBLIS X (CAR Y))
|
|
(SUBLIS X (CDR Y)))))))))))
|
|
(SUBST
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X Y Z)
|
|
(COND
|
|
((EQUAL Y Z) X)
|
|
((ATOM Z) Z)
|
|
(T (CONS (SUBST X Y (CAR Z)) (SUBST X Y (CDR Z)))))))
|
|
(SYSIN 32767 SUBR (BEOWULF IO SYSIN))
|
|
(SYSOUT 32767 SUBR (BEOWULF IO SYSOUT))
|
|
(TERPRI 32767)
|
|
(TIMES 32767 SUBR (BEOWULF HOST TIMES))
|
|
(TRACE 32767 SUBR (BEOWULF HOST TRACE))
|
|
(UNION
|
|
32767
|
|
EXPR
|
|
(LAMBDA
|
|
(X Y)
|
|
(COND
|
|
((NULL X) Y)
|
|
((MEMBER (CAR X) Y) (UNION (CDR X) Y))
|
|
(T (CONS (CAR X) (UNION (CDR X) Y))))))
|
|
(UNTRACE 32767 SUBR (BEOWULF HOST UNTRACE))
|
|
(ZEROP 32767 EXPR (LAMBDA (N) (EQ N 0))))
|