Skip to content

Instantly share code, notes, and snippets.

@z3t0

z3t0/snippet.lisp

Created August 7, 2017 01:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save z3t0/8587009f584d929db4c1ac82a7a7b179 to your computer and use it in GitHub Desktop.
Save z3t0/8587009f584d929db4c1ac82a7a7b179 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment