[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-commits] gcl/lsp gcl_setf.lsp
From: |
Camm Maguire |
Subject: |
[Gcl-commits] gcl/lsp gcl_setf.lsp |
Date: |
Fri, 09 Jun 2006 21:29:24 +0000 |
CVSROOT: /cvsroot/gcl
Module name: gcl
Changes by: Camm Maguire <camm> 06/06/09 21:29:24
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.21&r2=1.22
Patches:
Index: gcl_setf.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/lsp/gcl_setf.lsp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- gcl_setf.lsp 9 Jun 2006 21:27:26 -0000 1.21
+++ gcl_setf.lsp 9 Jun 2006 21:29:24 -0000 1.22
@@ -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))
- ((not (symbolp z) z))
+ ((not (symbolp z)) z)
((fdefinition z)))))))