Plaster
New
List
Login
common-lisp
default
anonymous
2023.06.26 18:44:51
(defun x () (rest '(a (&rest x . #1=(&rest y)) #1# a))) (defun y () (rest '(b (&rest x . #1=(&rest y)) #1# b))) (defun z () (rest '(c (&rest x . #1=(&rest y)) #1# c))) (let ((x (x)) (y (y)) (z (z))) (format t "~3S ~S [~X] ~S [~X]~@ ~3S ~S [~X] ~S [~X]~@ ~3S ~S [~X] ~S [~X]~%" (eq (cddr (car x)) (cadr x)) (car x) (sb-kernel:get-lisp-obj-address (car x)) (cadr x) (sb-kernel:get-lisp-obj-address (cadr x)) (eq (cddr (car y)) (cadr y)) (car y) (sb-kernel:get-lisp-obj-address (car y)) (cadr y) (sb-kernel:get-lisp-obj-address (cadr y)) (eq (cddr (car z)) (cadr z)) (car z) (sb-kernel:get-lisp-obj-address (car z)) (cadr z) (sb-kernel:get-lisp-obj-address (cadr z))))
Raw
Annotate
Repaste
Edit
Annotations
text
default
anonymous
2023.06.26 18:48:16
> sbcl --version SBCL 2.2.9.debian > sbcl --noinform --no-userinit --eval '(progn (compile-file "/tmp/bla.lisp") (load "/tmp/bla.fasl"))' --quit ; compiling file "/tmp/bla.lisp" (written 26 JUN 2023 08:43:19 PM): ; wrote /tmp/bla.fasl ; compilation finished in 0:00:00.008 T (&REST X &REST Y) [1001565447] (&REST Y) [1001565427] NIL (&REST X &REST Y) [1001565447] (&REST Y) [10015654A7] NIL (&REST X &REST Y) [1001565447] (&REST Y) [10015654A7]
Raw
Repaste
Edit