gcl-devel
[Top][All Lists]
Advanced

[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 )





reply via email to

[Prev in Thread] Current Thread [Next in Thread]