defun-setf-foo.lisp 144 Bytes
Newer Older
1 2 3 4 5 6
(in-package :asdf-test/deferred-warnings)

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

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