Changeset 4453


Ignore:
Timestamp:
10/19/03 01:39:19 (19 years ago)
Author:
piso
Message:

COMPILE-SPECIAL: LABELS, FLET.

File:
1 edited

Legend:

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

    r4452 r4453  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: compiler.lisp,v 1.56 2003-10-18 23:10:01 piso Exp $
     4;;; $Id: compiler.lisp,v 1.57 2003-10-19 01:39:19 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    209209       (let ((body (cdr form)))
    210210         (cons 'tagbody (compile-tagbody body))))
    211       (LABELS
     211      ((LABELS FLET)
    212212;;        (format t "LABELS *local-macros* = ~S~%" *local-macros*)
    213213       (let* ((locals (cadr form))
     
    217217;;          (format t "body          = ~S~%" body)
    218218;;          (format t "compiled-body = ~S~%" compiled-body)
    219          (append '(labels) (list compiled-locals) compiled-body)))
     219;;          (append '(labels) (list compiled-locals) compiled-body)))
     220         (list* first compiled-locals compiled-body)))
    220221      (RETURN
    221222       (if (cdr form)
Note: See TracChangeset for help on using the changeset viewer.