Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -7,12 +7,14 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.1.1.2 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)
#+new-compiler
(defun careful-symbol-function (name)
(symbol-function name))
#+new-compiler
(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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment