Changeset 3154


Ignore:
Timestamp:
08/01/03 01:22:14 (18 years ago)
Author:
piso
Message:

It's an error if test and test-not are both supplied.

File:
1 edited

Legend:

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

    r2723 r3154  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: adjoin.lisp,v 1.2 2003-07-02 17:56:32 piso Exp $
     4;;; $Id: adjoin.lisp,v 1.3 2003-08-01 01:22:14 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 "COMMON-LISP")
    21 
    22 (defun adjoin (item list &key key (test #'eql) (test-not nil notp))
     20(defun adjoin (item list &key key (test #'eql testp) (test-not nil notp))
     21  (when (and testp notp)
     22    (error "test and test-not both supplied"))
    2323  (if (let ((key-val (sys::apply-key key item)))
    2424  (if notp
Note: See TracChangeset for help on using the changeset viewer.