[Openmcl-cvs-notifications] r16237 - /trunk/source/lib/setf.lisp

gz at clozure.com gz at clozure.com
Thu Sep 25 17:07:22 UTC 2014


Author: gz
Date: Thu Sep 25 17:07:22 2014
New Revision: 16237

Log:
Make (setf getf) teeny tiny bit smarter

Modified:
    trunk/source/lib/setf.lisp

Modified: trunk/source/lib/setf.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/setf.lisp	(original)
+++ trunk/source/lib/setf.lisp	Thu Sep 25 17:07:22 2014
@@ -544,7 +544,7 @@
 ;;;;;;;
 =

 (define-setf-method getf (plist prop &optional (default () default-p)
-                                     &aux (prop-p (not (quoted-form-p prop=
)))
+                                     &aux (prop-p (not (constantp prop env=
)))
                                      &environment env)
  (multiple-value-bind (vars vals stores store-form access-form)
                       (get-setf-method plist env)



More information about the Openmcl-cvs-notifications mailing list