[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] Patch for TYPEP
From: |
Paul F. Dietz |
Subject: |
[Gcl-devel] Patch for TYPEP |
Date: |
Tue, 25 Feb 2003 07:23:50 -0600 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021126 |
TYPEP is not recognizing EQL types:
>(typep 'x '(eql 'x))
Error in TYPEP [or a callee]: TYPEP [or a callee] requires more than zero
arguments.
The bug is in lsp/predlib.lsp, introduced in version 1.5.
Here's a patch (not tested):
===================================================================
RCS file: /cvsroot/gcl/gcl/lsp/predlib.lsp,v
retrieving revision 1.9
diff -c -5 -r1.9 predlib.lsp
*** predlib.lsp 17 Feb 2003 16:50:21 -0000 1.9
--- predlib.lsp 25 Feb 2003 13:21:04 -0000
***************
*** 246,256 ****
(t
(cond ((setq tem (get tp 'si::s-data))
(structure-subtype-p object tem))
((setq tem (get tp 'deftype-definition))
(typep object
! (apply tem nil)))))))
;;; NORMALIZE-TYPE normalizes the type using the DEFTYPE definitions.
;;; The result is always a list.
(defun normalize-type (type &aux tp i )
--- 246,256 ----
(t
(cond ((setq tem (get tp 'si::s-data))
(structure-subtype-p object tem))
((setq tem (get tp 'deftype-definition))
(typep object
! (apply tem i)))))))
;;; NORMALIZE-TYPE normalizes the type using the DEFTYPE definitions.
;;; The result is always a list.
(defun normalize-type (type &aux tp i )
- [Gcl-devel] Patch for TYPEP,
Paul F. Dietz <=