Parent Directory | Revision Log | Patch
revision 1.3 by JYavner, Sun Oct 27 16:35:06 2002 UTC | revision 1.4 by lektu, Tue Feb 4 12:53:34 2003 UTC | |
---|---|---|
# | Line 212 of symbols with local bindings." | Line 212 of symbols with local bindings." |
212 | (defun unsafep-function (fun) | (defun unsafep-function (fun) |
213 | "Return nil if FUN is a safe function | "Return nil if FUN is a safe function |
214 | \(either a safe lambda or a symbol that names a safe function). Otherwise | \(either a safe lambda or a symbol that names a safe function). Otherwise |
215 | result is a reason code." | result is a reason code." |
216 | (cond | (cond |
217 | ((eq (car-safe fun) 'lambda) | ((eq (car-safe fun) 'lambda) |
218 | (unsafep fun unsafep-vars)) | (unsafep fun unsafep-vars)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |