Ignore:
Timestamp:
05/06/05 12:36:15 (16 years ago)
Author:
piso
Message:

(require-type list 'list)

File:
1 edited

Legend:

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

    r6391 r9068  
    11;;; ldiff.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: ldiff.lisp,v 1.2 2004-03-31 00:21:58 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: ldiff.lisp,v 1.3 2005-05-06 12:36:15 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (in-package "SYSTEM")
     20;;; Adapted from SBCL.
    2121
    22 ;;; LDIFF (from SBCL)
     22(in-package #:system)
    2323
    2424(defun ldiff (list object)
    25   (unless (listp list)
    26     (error 'type-error))
     25  (require-type list 'list)
    2726  (do* ((list list (cdr list))
    2827  (result (list ()))
Note: See TracChangeset for help on using the changeset viewer.