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/construc.lisp | |
parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz |
* More cleanup
Diffstat (limited to 'src/interp/construc.lisp')
-rw-r--r-- | src/interp/construc.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/construc.lisp b/src/interp/construc.lisp index 9d0d252d..0da772e1 100644 --- a/src/interp/construc.lisp +++ b/src/interp/construc.lisp @@ -167,7 +167,7 @@ (cond ((null p) p) ((pathnamep p) p) - ((null (pairp p)) (pathname p)) + ((null (consp p)) (pathname p)) ('else (when (> (length p) 2) (setq p (list (mergelib (first p)) (second p)))) |