Plaster
New
List
Login
common-lisp
default
anonymous
2018.08.13 07:34:00
(defstruct person name age waist-size favourite-colour) (defparameter *bob* (make-person :name "Bob" :age 35 :waist-size 32 :favourite-colour "blue")) (defparameter *that-guy* #S(PERSON :NAME "Bob" :AGE 36 :WAIST-SIZE 32 :FAVOURITE-COLOUR "blue"))
Raw
Annotate
Repaste
Edit
Annotations
text
default
anonymous
2018.08.13 07:39:13
* (compile-file "/tmp/foo.lisp") ; compiling file "/tmp/foo.lisp" (written 13 AUG 2018 09:36:49 AM): ; compiling (DEFSTRUCT PERSON ...) ; compiling (DEFPARAMETER *BOB* ...) ; compiling (DEFPARAMETER *THAT-GUY* ...) ; file: /tmp/foo.lisp ; in: DEFPARAMETER *THAT-GUY* ; (DEFPARAMETER *THAT-GUY* ; #S(PERSON :NAME "Bob" :AGE 36 :WAIST-SIZE 32 :FAVOURITE-COLOUR "blue")) ; --> PROGN ; ==> ; (SB-IMPL::%DEFPARAMETER '*THAT-GUY* ; #S(PERSON ; :NAME "Bob" ; :AGE 36 ; :WAIST-SIZE 32 ; :FAVOURITE-COLOUR "blue") ; (SB-C:SOURCE-LOCATION)) ; ; caught ERROR: ; don't know how to dump #S(PERSON ; :NAME "Bob" ; :AGE 36 ; :WAIST-SIZE 32 ; :FAVOURITE-COLOUR "blue") (default MAKE-LOAD-FORM method called). ; ; compilation unit finished ; caught 1 ERROR condition ; /tmp/foo.fasl written ; compilation finished in 0:00:00.021
Raw
Repaste
Edit