defsetf-foo.lisp 164 Bytes
Newer Older
1 2 3 4 5 6 7 8
(in-package :asdf-test/deferred-warnings)

(defvar *foo* (make-hash-table :test 'equal))

(defun set-foo (x v)
  (setf (gethash x *foo*) v))

(defsetf foo set-foo)