Changeset 4667


Ignore:
Timestamp:
11/07/03 19:13:23 (19 years ago)
Author:
piso
Message:

COMPILE-SEXP: minor cleanup.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compiler.lisp

    r4665 r4667  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: compiler.lisp,v 1.59 2003-11-07 18:26:32 piso Exp $
     4;;; $Id: compiler.lisp,v 1.60 2003-11-07 19:13:23 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    259259(defun compile-sexp (form)
    260260  (if (atom form) form
    261       (let ((first (car form)))
    262         (when (symbolp first)
    263           (cond ((local-macro-function first)
     261      (let ((op (car form)))
     262        (when (symbolp op)
     263          (cond ((local-macro-function op)
    264264                 (return-from compile-sexp (expand-local-macro form)))
    265                 ((eq first 'LAMBDA)
     265                ((eq op 'LAMBDA)
    266266                 (return-from compile-sexp (list* 'LAMBDA (second form)
    267267                                                  (mapcar #'compile-sexp (cddr form)))))
    268                 ((special-operator-p first)
     268                ((special-operator-p op)
    269269                 (return-from compile-sexp (compile-special form)))
    270                 ((macro-function first)
     270                ((macro-function op)
    271271                 (return-from compile-sexp (compile-sexp (expand-macro form))))))
    272         (cons first (mapcar #'compile-sexp (cdr form))))))
     272        (cons op (mapcar #'compile-sexp (cdr form))))))
    273273
    274274(defun %compile (name &optional definition)
Note: See TracChangeset for help on using the changeset viewer.