Changeset 4335
- Timestamp:
- 10/12/03 18:24:27 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/compiler.lisp
r4175 r4335 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: compiler.lisp,v 1.4 2 2003-10-02 15:48:33piso Exp $4 ;;; $Id: compiler.lisp,v 1.43 2003-10-12 18:24:27 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 238 238 239 239 (defun compile (name &optional definition) 240 (c::%compile name definition)) 240 (if (and name (fboundp name) (typep (symbol-function name) 'generic-function)) 241 (values name nil nil) 242 (c::%compile name definition))) 241 243 242 244 ;; Redefine DEFUN to compile the definition on the fly.
Note: See TracChangeset
for help on using the changeset viewer.