diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 12:38:27 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 12:38:27 -0700 |
| commit | c22ad481e8be2fc3aab967cefbb78746f1aad46a (patch) | |
| tree | 7b106d5d459057e6bc57567d9c631eaf769aec61 /src/property.lisp | |
| parent | 526c72b84d2e3770c1b876672560c986a4c1b256 (diff) | |
| download | consfigurator-c22ad481e8be2fc3aab967cefbb78746f1aad46a.tar.gz | |
avoid searching the list of known properties; just check for ISPROP
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property.lisp b/src/property.lisp index 54411bd..309070f 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -125,8 +125,8 @@ This variable exists just to avoid consing these forms over and over again; see MAP-PROPSPEC-PROPAPPS for how they are used.") (defun record-known-property (psym) - (setf (get psym 'isprop) t) - (unless (member psym *known-properties* :test #'eq) + (unless (get psym 'isprop) + (setf (get psym 'isprop) t) (push psym *known-properties*) (push `(,psym (&rest args) (let ((gensym (gensym))) |