/[gcl]/gcl/cmpnew/gcl_cmptype.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptype.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by camm, Sat Jul 23 08:49:04 2005 UTC revision 1.14 by camm, Mon Aug 8 23:03:22 2005 UTC
# Line 53  Line 53 
53      (case type      (case type
54        ((fixnum bignum) `(integer ,thing ,thing))        ((fixnum bignum) `(integer ,thing ,thing))
55        ((short-float long-float symbol) type)        ((short-float long-float symbol) type)
56        (cons `(cons ,(object-type (car thing)) ,(and (cdr thing) (object-type (cdr thing)))))        (cons `(cons ,(object-type (car thing)) ,(if (cdr thing) (object-type (cdr thing)) 'null)))
57        (keyword 'symbol)        (keyword 'symbol)
58        ((string-char standard-char character) 'character)        ((string-char standard-char character) 'character)
59        ((string bit-vector) type)        ((string bit-vector) type)
# Line 139  Line 139 
139  ;                          '(signed-char unsigned-char signed-short unsigned-short fixnum integer)  ;                          '(signed-char unsigned-char signed-short unsigned-short fixnum integer)
140                             '(fixnum integer)                             '(fixnum integer)
141                             :test #'type<=)))))                             :test #'type<=)))))
142        (or ct type))))        (cond (ct)
143    ;           ((eq type 'boolean))
144                (type)))))
145    ;      (or ct type))))
146  ;      (if (integer-typep type)  ;      (if (integer-typep type)
147  ;       (cond ;((subtypep type 'signed-char) 'signed-char)  ;       (cond ;((subtypep type 'signed-char) 'signed-char)
148  ;        ((subtypep type 'fixnum) 'fixnum)  ;        ((subtypep type 'fixnum) 'fixnum)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26