Ignore:
Timestamp:
02/18/05 18:19:39 (17 years ago)
Author:
piso
Message:

PROCESS-TOPLEVEL-FORM: use the correct block name for SETF functions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compile-file.lisp

    r8549 r8605  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: compile-file.lisp,v 1.55 2005-02-12 03:49:03 piso Exp $
     4;;; $Id: compile-file.lisp,v 1.56 2005-02-18 18:19:39 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    9292            (eval form))
    9393           (DEFUN
    94             (let ((name (second form)))
     94            (let* ((name (second form))
     95                   (block-name (cond ((symbolp name)
     96                                      name)
     97                                     ((and (consp name)
     98                                           (eq (car name) 'SETF))
     99                                      (cadr name))
     100                                     (t
     101                                      (error "Invalid function name: ~S~%" name)))))
    95102              (%format t "; Processing function ~A~%" name)
    96103              (let* ((lambda-list (third form))
     
    102109                (multiple-value-bind (body decls)
    103110                    (parse-body body)
    104                   (let* ((expr `(lambda ,lambda-list ,@decls (block ,name ,@body)))
     111                  (let* ((expr `(lambda ,lambda-list ,@decls (block ,block-name ,@body)))
    105112                         (classfile-name (next-classfile-name))
    106113                         (classfile (report-error
Note: See TracChangeset for help on using the changeset viewer.