Plaster

;; Expansions of (macroexpand '(setf (gethash :a table) 1)) ;; SBCL (LET* ((#:HASHTABLE TABLE) (#:NEW1 1)) (SB-KERNEL:%PUTHASH :A #:HASHTABLE #:NEW1)) ;; ECL (SI:HASH-SET :A TABLE 1) ;; ABCL (SYSTEM:PUTHASH :A TABLE 1) ;; CCL (CCL::PUTHASH :A TABLE 1) ;; Clasp (LET* ((#:G6732 :A) (#:G6733 TABLE)) (MULTIPLE-VALUE-BIND (#:STORE6734) 1 (CORE:HASH-TABLE-SETF-GETHASH #:G6733 #:G6732 #:STORE6734)))