[Openmcl-devel] Is this a bug?

Ron Garret ron at flownet.com
Wed Jan 25 01:10:35 UTC 2012


(progn
  (setf p (MAKE-POPULATION :INITIAL-CONTENTS (LIST (COPY-LIST '(foo)))))
  (gc)
  (POPULATION-CONTENTS p))

Returns NIL as expected, but:

(let (p)
  (setf p (MAKE-POPULATION :INITIAL-CONTENTS (LIST (COPY-LIST '(foo)))))
  (gc)
  (POPULATION-CONTENTS p))

returns ((FOO)).  Is this a bug or am I missing something?

rg




More information about the Openmcl-devel mailing list