/[cmucl]/src/code/pred.lisp
ViewVC logotype

Diff of /src/code/pred.lisp

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

revision 1.50 by pw, Thu Feb 25 13:02:58 1999 UTC revision 1.51 by dtc, Mon Jan 10 15:25:09 2000 UTC
# Line 411  Line 411 
411    arrays must have identical dimensions and EQUALP elements, but may differ    arrays must have identical dimensions and EQUALP elements, but may differ
412    in their type restriction."    in their type restriction."
413    (cond ((eq x y) t)    (cond ((eq x y) t)
414          ((characterp x) (char-equal x y))          ((characterp x) (and (characterp y) (char-equal x y)))
415          ((numberp x) (and (numberp y) (= x y)))          ((numberp x) (and (numberp y) (= x y)))
416          ((consp x)          ((consp x)
417           (and (consp y)           (and (consp y)

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

  ViewVC Help
Powered by ViewVC 1.1.5