Commit f4af713a authored by wlott's avatar wlott
Browse files

Added fake definitions for careful-symbol-function and

set-symbol-function-carefully so that we can use them before we get all the
trace stuff up and running.
parent 199b6a9c
......@@ -7,12 +7,14 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1990/04/20 00:36:19 wlott Exp $
;;; Functions that hack on the global function namespace (primarily
;;; concerned with SETF functions here.)
;;; Written by Rob MacLachlan
(in-package 'lisp)
(in-package "LISP")
(export '(fdefinition fboundp fmakunbound))
(defvar *setf-functions* (make-hash-table :test #'equal))
......@@ -35,6 +37,14 @@
); Eval-When (Compile Eval)
(defun careful-symbol-function (name)
(symbol-function name))
(defun set-symbol-function-carefully (name value)
(setf (symbol-function name) value))
(defun fdefinition (name)
"Return Name's global function definition."
(with-function-name name
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment