Reify SYMBOL-FUNCTION and add (SETF SYMBOL-FUNCTION)

jscl-project · Apr 21, 2018 · 98e2f0d · 98e2f0d
1 parent 86b6104
commit 98e2f0d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/symbol.lisp b/src/symbol.lisp
@@ -38,3 +38,8 @@
 
 (defun get (symbol indicator &optional default)
   (getf (symbol-plist symbol) indicator default))
+
+(defun symbol-function (symbol)
+  (symbol-function symbol))
+
+(defsetf symbol-function fset)