z3t0 · August 7, 2017 01:55
diff --git a/snippet.lisp b/snippet.lisp
 (defparameter *test-db* nil)
 (push (list :name "Bob") *test-db*)
 (print *test-db*)
 ;; ((:NAME "Bob"))
 (getf (first *test-db*) :bots)
 ;; returns nil (as expected)

 (setf (getf (first *test-db*) :bots) '(1))
 ;; returns (1) (as expected)

 (setf (getf (first *test-db*) :bots) nil)
 ;; also returns nil as expected
	(defparameter test-db nil)
	(push (list :name "Bob") test-db)
	(print test-db)
	;; ((:NAME "Bob"))
	(getf (first test-db) :bots)
	;; returns nil (as expected)

	(setf (getf (first test-db) :bots) '(1))
	;; returns (1) (as expected)

	(setf (getf (first test-db) :bots) nil)
	;; also returns nil as expected