Changeset 11456
- Timestamp:
- 12/20/08 14:09:27 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/jvm.lisp
r11455 r11456 30 30 ;;; exception statement from your version. 31 31 32 (in-package "EXTENSIONS")33 34 32 (in-package "JVM") 35 33 … … 281 279 nil))) 282 280 283 ;; True for local functions defined with FLET or LABELS. 284 (defvar *child-p* nil)281 (defvar *child-p* nil 282 "True for local functions created by FLET, LABELS and (NAMED-)LAMBDA") 285 283 286 284 (defknown find-variable (symbol list) t)
Note: See TracChangeset
for help on using the changeset viewer.