Changeset 11040 for trunk/source/level-1


Ignore:
Timestamp:
Oct 10, 2008, 9:45:25 PM (11 years ago)
Author:
gz
Message:

Fix a typo in r10942

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop.lisp

    r10942 r11040  
    439439
    440440(defun def-info.macro-p (def-info)
    441   (let ((data (and def-info (svref def-info 2))))
     441  (let ((data (and def-info (svref def-info 3))))
    442442    (eq (car data) 'macro)))
    443443
Note: See TracChangeset for help on using the changeset viewer.