From: czkmt Date: Sun, 23 Jan 2000 09:16:13 +0000 (+0000) Subject: (byte-code-function-p): Check if the CDR of OBJECT is a cons cell. X-Git-Tag: apel-10_2~29 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fcd8e41edad4c4bc4df9c8ed25e83ed8eeb46e40;p=elisp%2Fapel.git (byte-code-function-p): Check if the CDR of OBJECT is a cons cell. --- 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))