/[gcl]/gcl/lsp/gcl_mislib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_mislib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by camm, Sun Sep 18 02:46:35 2005 UTC revision 1.11 by camm, Fri Oct 14 01:07:46 2005 UTC
# Line 26  Line 26 
26    
27  (export 'time)  (export 'time)
28  (export 'nth-value)  (export 'nth-value)
29  (export '(reset-sys-paths decode-universal-time encode-universal-time compile-file-pathname complement constantly))  (export '(function-lambda-expression
30              reset-sys-paths decode-universal-time
31              encode-universal-time compile-file-pathname complement constantly))
32    
33    
34  (in-package 'system)  (in-package 'system)
# Line 174  Line 176 
176        (push (si::string-concatenate s l) nl))        (push (si::string-concatenate s l) nl))
177      (setq si::*load-path* nl))      (setq si::*load-path* nl))
178    nil)    nil)
179    
180    (defun function-lambda-expression (x)
181      (if (typep x 'interpreted-function)
182          (let* ((x (si::interpreted-function-lambda x)))
183            (case (car x)
184                  (lambda (values x nil nil))
185                  (lambda-block (values (cons 'lambda (cddr x))  nil (cadr x)))
186                  (lambda-closure (values (cons 'lambda (cddr (cddr x)))  (not (not (cadr x)))  nil))
187                  (lambda-block-closure (values (cons 'lambda (cdr (cddr (cddr x))))  (not (not (cadr x))) (fifth x)))
188                  (otherwise (values nil t nil))))
189        (values nil t nil)))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26