From fcd8e41edad4c4bc4df9c8ed25e83ed8eeb46e40 Mon Sep 17 00:00:00 2001 From: czkmt Date: Sun, 23 Jan 2000 09:16:13 +0000 Subject: [PATCH] (byte-code-function-p): Check if the CDR of OBJECT is a cons cell. --- poe-18.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/poe-18.el b/poe-18.el index edba3e0..d765d83 100644 --- a/poe-18.el +++ b/poe-18.el @@ -58,7 +58,7 @@ Associates the function with the current load file, if any." (defun byte-code-function-p (object) "Return t if OBJECT is a byte-compiled function object." - (and (consp object) + (and (consp object) (consp (cdr object)) (let ((rest (cdr (cdr object))) elt) (if (stringp (car rest)) -- 1.7.10.4