diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
| commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
| tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/daase.lisp | |
| parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
| download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz | |
* More cleanup
Diffstat (limited to 'src/interp/daase.lisp')
| -rw-r--r-- | src/interp/daase.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 20c13873..1a86d669 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -781,7 +781,7 @@ (let (data table stream ignore struct) (declare (ignore ignore)) (when (or (symbolp constructor) - (and (eq key 'hascategory) (pairp constructor))) + (and (eq key 'hascategory) (consp constructor))) (case key ; note that abbreviation, constructorkind and cosig are heavy hitters ; thus they occur first in the list of things to check |