Changeset 9016


Ignore:
Timestamp:
Apr 4, 2008, 7:01:18 AM (11 years ago)
Author:
gb
Message:

missed this; more changes to avoid misdentifying forward-references as macros

File:
1 edited

Legend:

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

    r8927 r9016  
    566566                                             global))))))
    567567                (signal-warning w))
    568               ;; Check args in call to forward-referenenced function.
     568              ;; Check args in call to forward-referenced function.
    569569              (if (or (typep def 'function)
    570570                      (and (consp def)
    571571                           (consp (cdr def))
    572                            (cadr def)))
     572                           (consp (cadr def))
     573                           (caadr def)))
    573574                (when (cdr args)
    574575                  (destructuring-bind (arglist spread-p)
     
    586587                                (compiler-warning-stream-position w))
    587588                          (signal-warning w2))))))
    588                 (if def
     589                (if (or (and (consp def)
     590                             (consp (cdr def))
     591                             (consp (cadr def))
     592                             (eq (cdadr def) 'macro))
     593                        (typep def 'simple-vector))
    589594                  (let* ((w2 (make-condition
    590595                              'macro-used-before-definition
Note: See TracChangeset for help on using the changeset viewer.