From: czkmt <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))