Permalink
Browse files

make modern-mode friendly

for modernly friendly corporations and such

also, why upcase T and NIL? ohwell.
  • Loading branch information...
1 parent ff59f87 commit 8f80779cdc1843ba60e84432cc9147c716b4ee43 @felideon committed Oct 3, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 alref.lisp
View
@@ -7,7 +7,7 @@
(in-package :alref)
(defvar *default-alref-test* #'eql)
(defvar *default-alref-key* #'identity)
-(defvar *default-alref-value* NIL)
+(defvar *default-alref-value* nil)
(defmacro with-gensyms (vars &body body)
`(let ,(loop for x in vars collect `(,x (gensym)))
,@body))
@@ -32,7 +32,7 @@
`(assoc ,item ,alist :test ,test :key ,key))
orig-vals)
`(,new)
- `(cond ((eq ,new NIL)
+ `(cond ((eq ,new nil)
(let ((,(car stores)
(delete ,g-item ,g-alist :test ,g-test
:count 1 :key
@@ -41,7 +41,7 @@
(car pair))))))
,setter))
(,it (setf (cdr ,it) ,new))
- (T (let ((,(car stores)
+ (t (let ((,(car stores)
(acons ,g-item ,new ,g-alist)))
(when ,unsafe
(cerror "Add the key/value pair anyways."

0 comments on commit 8f80779

Please sign in to comment.