Changeset 3251

Timestamp:

06/03/08 01:14:24 (7 months ago)

Author:

hans

Message:

Fix typo, make table generation work again.

Files:

• trunk/projects/symbolics-keyboard/make-keymap.lisp (modified) (2 diffs)

trunk/projects/symbolics-keyboard/make-keymap.lisp

@@ -130 +130 @@
-    ("Caps"             #x58)
-    ("ShiftR"           #x59)
-y
+
-    ("Return"           #x5a)
-    ("]"                #x5b)
@@ -374 +374 @@
-        (unmapped-ps2-keys *ps2-map*))
-    (dolist (symbolics-key-entry *symbolics-map*)
-destructuring-bind (symbolics-keyname symbolics-scancode &rest geometry-info) symbolics-key-entry
-(declare (ignore geometry-info
+let ((symbolics-keyname (key-name symbolics-key-entry))
+    (symbolics-scancode (key-scancode symbolics-key-entry)
-        (cond
-          ((f-mode-key-p symbolics-key-entry)