2.2.2 Examples

CL-USER 4 > :redo

(MAKE-ANIMAL :SPECIES "Hippopotamus" :NAME ...)

#S(ANIMAL :SPECIES "Hippopotamus" :NAME "Hilda" :WEIGHT 42)

CL-USER 5 > :his

1: (PRINT 42)

2: (DEFSTRUCT ANIMAL SPECIES NAME ...)

3: (MAKE-ANIMAL :SPECIES "Hippopotamus" :NAME ...)

4: (MAKE-ANIMAL :SPECIES "Hippopotamus" :NAME ...)

CL-USER 5 > :get make-hilda 3

CL-USER 5 > make-hilda

(MAKE-ANIMAL :SPECIES "Hippopotamus" :NAME "Hilda" :WEIGHT 42)

CL-USER 6 > :use "Henry" "Hilda"

(MAKE-ANIMAL :SPECIES "Hippopotamus" :NAME ...)

#S(ANIMAL :SPECIES "Hippopotamus" :NAME "Henry" :WEIGHT 42)

CL-USER 7 > :bug-form "Too many hippos..." :filename "bug-report.txt"