projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5238: *** empty log message ***
[kmrcl.git]
/
lists.lisp
diff --git
a/lists.lisp
b/lists.lisp
index 8bc548d829f924dabe8bf4b11b56618987e589ad..285bb397f426333f8b3eac243144c8704d08eb05 100644
(file)
--- a/
lists.lisp
+++ b/
lists.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: lists.lisp,v 1.
7 2003/06/20 08:35:22
kevin Exp $
+;;;; $Id: lists.lisp,v 1.
8 2003/07/05 02:32:08
kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-176,11
+176,4
@@
,plist)
(setf ,plist (append ,plist (list ,pkey ,value)))))))
,plist)
(setf ,plist (append ,plist (list ,pkey ,value)))))))
-(defun get-plist (key plist &key (test 'eql) (missing nil))
- (let-if (pos (member key plist :test test))
- (cadr pos)
- missing))
-(defun (setf get-plist) (value key plist &key (test #'eql))
- (update-plist key value plist :test test)
- value)