Changeset 11541


Ignore:
Timestamp:
01/04/09 17:29:00 (12 years ago)
Author:
vvoutilainen
Message:

Look, I can do conditionals in the middle of a
backquote-form! :) Seriously, this commit removes
a tiny bit of copy-paste from define-resolver.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11540 r11541  
    932932(defmacro define-resolver (opcodes args &body body)
    933933  (let ((name (gensym)))
    934     (if (listp opcodes)
    935         `(progn
    936            (defun ,name ,args ,@body)
    937            (eval-when (:load-toplevel :execute)
    938              (dolist (op ',opcodes)
    939                (setf (gethash op +resolvers+) (symbol-function ',name)))))
    940         `(progn
    941            (defun ,name ,args ,@body)
    942            (eval-when (:load-toplevel :execute)
    943              (setf (gethash ,opcodes +resolvers+) (symbol-function ',name)))))))
     934    `(progn
     935       (defun ,name ,args ,@body)
     936       (eval-when (:load-toplevel :execute)
     937   ,(if (listp opcodes)
     938        `(dolist (op ',opcodes)
     939     (setf (gethash op +resolvers+) (symbol-function ',name)))
     940        `(setf (gethash ,opcodes +resolvers+) (symbol-function ',name)))))))
    944941
    945942;; aload
Note: See TracChangeset for help on using the changeset viewer.