Ignore:
Timestamp:
03/17/03 14:50:12 (18 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/chars.lisp

    r1265 r1325  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: chars.lisp,v 1.2 2003-03-14 02:11:21 piso Exp $
     4;;; $Id: chars.lisp,v 1.3 2003-03-17 14:50:12 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    6363    (unless (do* ((l list (cdr l)))                  ;inner loop returns T
    6464     ((atom l) T)          ; iff head /= rest.
    65         (if (eq head (car l)) (return nil)))
     65        (if (eql head (car l)) (return nil)))
    6666      (return nil))))
    6767
Note: See TracChangeset for help on using the changeset viewer.