Changeset 11042

Timestamp:

Oct 10, 2008, 10:00:18 PM (11 years ago)

Author:

gz

Message:

Fix a typo in dup definition code (r11040 from trunk)

File:

• branches/working-0711/ccl/level-1/l1-readloop.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-readloop.lisp

@@ -437 +437 @@
 
 (defun def-info.macro-p (def-info)
-  (let ((data (and def-info (svref def-info 2))))
+  (let ((data (and def-info (svref def-info 3))))
     (eq (car data) 'macro)))