Changeset 4335

Timestamp:

10/12/03 18:24:27 (19 years ago)

Author:

piso

Message:

COMPILE: ignore generic functions.

File:

• trunk/j/src/org/armedbear/lisp/compiler.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/compiler.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: compiler.lisp,v 1.42 2003-10-02 15:48:33 piso Exp $
+;;; $Id: compiler.lisp,v 1.43 2003-10-12 18:24:27 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -238 +238 @@
 
 (defun compile (name &optional definition)
-  (c::%compile name definition))
+  (if (and name (fboundp name) (typep (symbol-function name) 'generic-function))
+      (values name nil nil)
+      (c::%compile name definition)))
 
 ;; Redefine DEFUN to compile the definition on the fly.