Skip to content
Snippets Groups Projects
Commit 27cd0eb0 authored by wlott's avatar wlott
Browse files

This commit was generated by cvs2svn to compensate for changes in r739,

which included commits to RCS files with non-trunk default branches.
parents 55cf3ffa f4af713a
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