Ilisp add-on !

Hello !

For those who use Corman lisp with Ilisp, here is the code to add at 
the end
of your "init.lisp" file if you want to enable the "argument list 
ilisp"
command to function properly. If not it only returns the 
documentation.

This command is very cool now. Perhaps Alt-Space is a better bind 
than Space
...



;;; _____ init.lisp______

;;; already saved in my startup image "ccl-ilisp.img".
;;; so not using the ilisp load hook.

;(load "ilisp-pkg.lisp")
;(load "cl-ilisp.lisp")
;(load "cormanlisp.lisp")


(in-package :ilisp)
(defun get-function-arglist ( symbol )
  (let ((fun (symbol-function symbol)))
    (cond ((ilisp-generic-function-p symbol)
    (funcall
     (find-symbol "GENERIC-FUNCTION-PRETTY-ARGLIST"
    (or (find-package "PCL") *package*))
     fun))
   (t (cl::arglist fun)) )))

(in-package :cl)

;;; This function (or similar one) should be added in the future CCL 
release
;-)
(defun arglist ( aFunction )
  "return the argument list of function"
  (let* ((compiled-code-obj
   (unless (pl::kernel-function-p aFunction)
     (uref aFunction function-code-buffer-offset)))
  (properties
   (if compiled-code-obj
       (uref compiled-code-obj compiled-code-info-offset))) )
    (getf properties 'lambda-list) ))

(in-package :user)

_______________________
@+


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs Online - Over 14,500 titles.
No Late Fees & Free Shipping.
Try Netflix for FREE!
http://us.click.yahoo.com/Tq9otC/XP.FAA/3jkFAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
[email protected]

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/