Parent Directory | Revision Log | Patch
revision 1.18.18.2 by miles, Sun Aug 25 21:42:44 2002 UTC | revision 1.18.18.3 by miles, Fri Apr 4 06:20:16 2003 UTC | |
---|---|---|
# | Line 91 redefine OBJECT if it is a symbol." | Line 91 redefine OBJECT if it is a symbol." |
91 | (setq lexical-binding t) | (setq lexical-binding t) |
92 | (setq obj (cddr obj))) | (setq obj (cddr obj))) |
93 | (if (and (listp obj) (eq (car obj) 'byte-code)) | (if (and (listp obj) (eq (car obj) 'byte-code)) |
94 | (setq obj (list 'lambda nil obj))) | (setq obj (list 'lambda nil obj))) |
95 | (if (and (listp obj) (not (eq (car obj) 'lambda))) | (if (and (listp obj) (not (eq (car obj) 'lambda))) |
96 | (error "not a function")) | (error "not a function")) |
97 | (if (consp obj) | (if (consp obj) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |