Changeset 1325 for trunk/j/src/org/armedbear/lisp/chars.lisp

Timestamp:

03/17/03 14:50:12 (18 years ago)

Author:

piso

Message:

char/=: test in inner loop should be EQL, not EQ.

File:

• trunk/j/src/org/armedbear/lisp/chars.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/chars.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: chars.lisp,v 1.2 2003-03-14 02:11:21 piso Exp $
+;;; $Id: chars.lisp,v 1.3 2003-03-17 14:50:12 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -63 +63 @@
     (unless (do* ((l list (cdr l)))                  ;inner loop returns T
      ((atom l) T)          ; iff head /= rest.
-        (if (eq head (car l)) (return nil)))
+        (if (eql head (car l)) (return nil)))
       (return nil))))