User: aidan
Date: 09/01/11 13:46:09
Modified: packages/xemacs-packages/xemacs-base ChangeLog debug.el
Log:
Refuse to attempt debug on entry for special forms.
Revision Changes Path
1.214 +5 -0 XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -p -r1.213 -r1.214
--- ChangeLog 2008/07/23 18:12:32 1.213
+++ ChangeLog 2009/01/11 12:46:07 1.214
@@ -1,3 +1,8 @@
+2009-01-11 Aidan Kehoe <[email protected]>
+
+ * debug.el (debug-on-entry):
+ Refuse to attempt this for special forms.
+
2008-07-23 Norbert Koch <[email protected]>
* Makefile (VERSION): XEmacs package 2.18 released.
1.7 +6 -4 XEmacs/packages/xemacs-packages/xemacs-base/debug.el
Index: debug.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/debug.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- debug.el 2006/03/16 07:11:50 1.6
+++ debug.el 2009/01/11 12:46:08 1.7
@@ -682,10 +682,12 @@ Redefining FUNCTION also cancels it."
(interactive "aDebug on entry (to function): ")
(debugger-reenable)
;; Handle a function that has been aliased to some other function.
- ;; #### We have no way of determining if a subr is unevalled
-; (if (and (subrp (symbol-function function))
-; (eq (cdr (subr-arity (symbol-function function))) 'unevalled))
-; (error "Function %s is a special form" function))
+ (if (and (subrp (symbol-function function))
+ ;; XEmacs change; 21.4 has no way of checking if a subr is a
+ ;; special form, early 21.5 does not have #'subr-arity.
+ (fboundp 'special-form-p)
+ (special-form-p (symbol-function function)))
+ (error "Function %s is a special form" function))
(if (or (symbolp (symbol-function function))
(subrp (symbol-function function)))
;; Create a wrapper in which we can then add the necessary debug call.
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.