Ignore:
Timestamp:
05/27/05 11:43:06 (16 years ago)
Author:
piso
Message:

DEFTYPE.16: "The body of the DEFTYPE form (but not the lambda-list) is
implicitly enclosed in a block named NAME..."

File:
1 edited

Legend:

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

    r9242 r9266  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: deftype.lisp,v 1.5 2005-05-24 18:58:02 piso Exp $
     4;;; $Id: deftype.lisp,v 1.6 2005-05-27 11:43:06 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3737      (setf lambda-list (nreverse new-lambda-list))))
    3838  `(progn
    39      (setf (get ',name 'deftype-definition) #'(lambda ,lambda-list ,@body))
     39     (setf (get ',name 'deftype-definition)
     40           #'(lambda ,lambda-list (block ,name ,@body)))
    4041     ',name))
    4142
Note: See TracChangeset for help on using the changeset viewer.