Opened 9 years ago

Closed 9 years ago

#808 closed defect (fixed)

(symbol-function function-name) no error signaled

Reported by: Frank Owned by: gb
Priority: minor Milestone:
Component: ANSI CL Compliance Version: trunk
Keywords: symbol-function Cc:


;;; symbol-function should signal an error of type type-error if symbol is not a symbol.

(defparameter *store* nil)

(defun (setf store) (newval)

(setf *store* newval))

(defun foo ()

(declare (optimize safety)) (symbol-function '(setf store))) ; Should signal an error

(foo) ; No error signaled!

Change History (2)

comment:1 Changed 9 years ago by gb

  • Owner set to gb
  • Status changed from new to assigned

comment:2 Changed 9 years ago by gb

  • Resolution set to fixed
  • Status changed from assigned to closed

(In [14577]) Typecheck the NAME argument in SYMBOL-FUNCTION; use FSET-SYMBOL as SYMBOL-FUNCTION's SETF inverse. Fixes ticket:808.

Note: See TracTickets for help on using tickets.