modified to work with Allegro CL's modern case mode.

kmizumar · Apr 1, 2012 · aeb41d4 · aeb41d4
1 parent 2d7f9f4
commit aeb41d4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/hash.lisp b/src/hash.lisp
@@ -13,9 +13,9 @@
 
 (defmacro deflookup-table
     (name &key (var    (make-lookup-name name "*" name "*"))
-               (reader (make-lookup-name name "GET-" name))
-               (writer (make-lookup-name name "GET-" name))
-               (rem-er (make-lookup-name name "REM-" name))
+               (reader (make-lookup-name name "get-" name))
+               (writer (make-lookup-name name "get-" name))
+               (rem-er (make-lookup-name name "rem-" name))
                (at-redefinition :warn)
                (documentation
                 (format nil "Global var for the ~S lookup table" name))