Changeset 4904


Ignore:
Timestamp:
11/28/03 05:58:57 (18 years ago)
Author:
piso
Message:

VERIFY-KEYWORDS: member => memql

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/destructuring-bind.lisp

    r4205 r4904  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: destructuring-bind.lisp,v 1.6 2003-10-06 00:03:15 piso Exp $
     4;;; $Id: destructuring-bind.lisp,v 1.7 2003-11-28 05:58:57 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222(in-package "SYSTEM")
    23 
    24 (export '(destructuring-bind))
    2523
    2624(defvar *arg-tests* ())
     
    9391     (return (values :odd-length key-list)))
    9492    #+nil ;; Not ANSI compliant to disallow duplicate keywords.
    95     ((member (car remaining) already-processed)
     93    ((memql (car remaining) already-processed)
    9694     (return (values :duplicate (car remaining))))
    9795    ((or (eq (car remaining) :allow-other-keys)
    98          (member (car remaining) valid-keys))
     96         (memql (car remaining) valid-keys))
    9997     (push (car remaining) already-processed))
    10098    (t
Note: See TracChangeset for help on using the changeset viewer.