/[gcl]/gcl/lsp/predlib.lsp
ViewVC logotype

Diff of /gcl/lsp/predlib.lsp

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

revision 1.3 by camm, Thu Oct 3 05:32:38 2002 UTC revision 1.4 by camm, Fri Oct 4 03:30:34 2002 UTC
# Line 241  Line 241 
241                      number integer bignum rational ratio float                      number integer bignum rational ratio float
242                      short-float single-float double-float long-float complex                      short-float single-float double-float long-float complex
243                      character standard-char string-char                      character standard-char string-char
244                      real                      real
245                      package stream pathname readtable hash-table random-state                      package stream pathname readtable hash-table random-state
246                      structure array simple-array function compiled-function                      structure array simple-array function compiled-function
247                      arithmetic-error base-char base-string broadcast-stream                      arithmetic-error base-char base-string broadcast-stream
# Line 313  Line 313 
313           (cond ((member t1 '(null cons list)) (values t t))           (cond ((member t1 '(null cons list)) (values t t))
314                 (t (values nil ntp1))))                 (t (values nil ntp1))))
315          ((eq t2 'sequence)          ((eq t2 'sequence)
316           (cond ((member t1 '(null cons list sequence)) (values t t))           (cond ((member t1 '(null cons list sequence base-string simple-base-string)) (values t t))
317                 ((eq t1 'array)                 ((or (eq t1 'simple-array) (eq t1 'array))
318                  (if (and (cdr i1) (consp (cadr i1)) (null (cdadr i1)))                  (if (and (cdr i1) (consp (cadr i1)) (null (cdadr i1)))
319                      (values t t)                      (values t t)
320                      (values nil t)))                      (values nil t)))
# Line 391  Line 391 
391              (if (member t2 '(standard-char string-char character))              (if (member t2 '(standard-char string-char character))
392                  (values t t)                  (values t t)
393                  (values nil ntp2)))                  (values nil ntp2)))
394               (base-string
395                (if (member t2 '(string vector array sequence))
396                    (values t t)
397                    (values nil ntp2)))
398               (base-char
399                (if (member t2 '(character string-char))
400                    (values t t)
401                    (values nil ntp2)))
402               (simple-base-string
403                (if (member t2 '(string simple-string base-string vector
404                                        simple-vector simple-array array sequence))
405                    (values t t)
406                    (values nil ntp2)))
407             (string-char             (string-char
408              (if (member t2 '(string-char character))              (if (member t2 '(string-char character))
409                  (values t t)                  (values t t)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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