Changeset 9088


Ignore:
Timestamp:
05/07/05 14:38:54 (16 years ago)
Author:
piso
Message:

UNION, SUBSETP: type checking.

File:
1 edited

Legend:

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

    r6696 r9088  
    11;;; sets.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: sets.lisp,v 1.4 2004-05-03 01:33:33 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: sets.lisp,v 1.5 2005-05-07 14:38:54 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(in-package #:system)
    2121
    2222;;; From CMUCL.
     
    2727
    2828(defun union (list1 list2 &key key (test #'eql testp) (test-not nil notp))
     29  (require-type list2 'list)
    2930  (when (and testp notp)
    3031    (error "Both :TEST and :TEST-NOT were supplied."))
     
    191192;;; Adapted from SBCL.
    192193(defun subsetp (list1 list2 &key key (test #'eql testp) (test-not nil notp))
     194  (require-type list2 'list)
    193195  (when (and testp notp)
    194196    (error "Both :TEST and :TEST-NOT were supplied."))
Note: See TracChangeset for help on using the changeset viewer.