;;;; This file is for testing debugging functionality, using
-;;;; test machinery which might have side-effects (e.g.
+;;;; test machinery which might have side effects (e.g.
;;;; executing DEFUN).
;;;; This software is part of the SBCL system. See the README file for
(declare (type function fun))
;; The Lisp-level type FUNCTION can conceal a multitude of sins..
(case (sb-kernel:widetag-of fun)
- ((#.sb-vm:simple-fun-header-widetag #.sb-vm:closure-fun-header-widetag)
+ (#.sb-vm:simple-fun-header-widetag
(sb-kernel:%simple-fun-arglist fun))
(#.sb-vm:closure-header-widetag (get-arglist
(sb-kernel:%closure-fun fun)))