diff options
| author | Camm Maguire <camm@debian.org> | 2014-06-02 22:19:11 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014-06-02 22:19:11 +0000 |
| commit | f6c9eeab799b0681065eea52b0871caa02da3730 (patch) | |
| tree | d3908815d1025a54187c6ecb912e0529c182ae10 | |
| parent | e6a80921491772c6874b5e0498deae57c28b71b8 (diff) | |
| download | gcl-f6c9eeab799b0681065eea52b0871caa02da3730.tar.gz | |
allow last argument constant list types through narg-list-type
| -rwxr-xr-x | gcl/cmpnew/gcl_cmpfun.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcl/cmpnew/gcl_cmpfun.lsp b/gcl/cmpnew/gcl_cmpfun.lsp index 22695675..e5ca6f8f 100755 --- a/gcl/cmpnew/gcl_cmpfun.lsp +++ b/gcl/cmpnew/gcl_cmpfun.lsp @@ -1048,7 +1048,7 @@ ((get-vbind x)) (+opaque+))) nargs))) ; (when dot (setf (cdr (last y 2)) (car (last y)))) ;FIXME bump-pcons -- get rid of pcons entirely - (let ((s (when dot (car (last y))))(tp (info-type (cadar (last nargs)))));FIXME + (let* ((s (when dot (car (last y))))(s (when s (unless (typep s 'proper-list) s)))(tp (info-type (cadar (last nargs)))));FIXME (cond ((when s (type>= #tproper-list tp)) #tproper-cons) ((when s (type-and #tnull tp)) #tcons) (t (when dot (setf (cdr (last y 2)) (car (last y)))) (object-type y)))))) |