Ignore:
Timestamp:
01/13/05 12:30:56 (17 years ago)
Author:
piso
Message:

EQUALP-WITH-CASE: added case for pathnames.

File:
1 edited

Legend:

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

    r8179 r8352  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: rt.lisp,v 1.159 2004-11-21 13:52:52 piso Exp $
     4;;; $Id: rt.lisp,v 1.160 2005-01-13 12:30:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7171     always (equalp-with-case (row-major-aref x i)
    7272            (row-major-aref y i))))))
     73   ((typep x 'pathname)
     74    (equal x y))
    7375   (t (eql x y))))
    7476
Note: See TracChangeset for help on using the changeset viewer.