[Gcl-commits] gcl/lsp gcl_setf.lsp

[Camm Maguire]

CVSROOT:        /cvsroot/gcl
Module name:    gcl
Changes by:     Camm Maguire <camm>     06/06/09 21:27:26

Modified files:
        lsp            : gcl_setf.lsp 

Log message:
        Fix typing bug in c1flet/c1labels,make (values form) an efficient 
return,portable code turns &aux into let* to make the lambda funcallable (in 
preparation for automatic state/mutual recursion conversion),speed up 
proper-list type-or, give fdefinition a lisp definition to set up the prototype 
(removes a number of * returns)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gcl/lsp/gcl_setf.lsp?cvsroot=gcl&r1=1.20&r2=1.21

Patches:
Index: gcl_setf.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/lsp/gcl_setf.lsp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- gcl_setf.lsp        9 Jun 2006 21:08:09 -0000       1.20
+++ gcl_setf.lsp        9 Jun 2006 21:27:26 -0000       1.21
@@ -626,7 +626,7 @@
   (cond ((symbolp name) (values (symbol-function name)))
        ((let ((z (get (cadr name) 'setf-function)))
           (cond ((not z) (error :undefined-function "function ~s is undefined" 
name))
-                ((functionp z) z)
+                ((not (symbolp z) z))
                 ((fdefinition z)))))))