Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.


Diff of /src/code/symbol.lisp [c6909a] .. [189dd8] Maximize Restore

  Switch to side-by-side view

--- a/src/code/symbol.lisp
+++ b/src/code/symbol.lisp
@@ -80,7 +80,7 @@
 (defun symbol-function (symbol)
   "Return SYMBOL's current function definition. Settable with SETF."
-  (!coerce-name-to-fun symbol-fdefinition symbol))
+  (!coerce-name-to-fun symbol-fdefn symbol))
 (defun (setf symbol-function) (new-value symbol)
   (declare (type symbol symbol) (type function new-value))