home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / util / edit / jade.lha / Jade / lisp / lisp.jlc < prev    next >
Text File  |  1994-04-20  |  3KB  |  55 lines
  1.  
  2. (defmacro defvar (symbol init-value &optional doc-string) 56281 (lisp-code "**†++‡ˆ‰*Šˆ,+*," [progn unless boundp quote symbol setq init-value when doc-string put (quote variable-documentation)] 8))
  3.  
  4. (defmacro defconst (symbol init-value &optional doc-string) 56465 (lisp-code "**†++‡**ˆ‰Š*‹*ŒŠ,+*-" [progn unless boundp quote symbol setq init-value set-const-variable when stringp doc-string put (quote variable-documentation)] 9))
  5.  
  6. (setq features nil)
  7.  
  8. (defun require (feature) (lisp-code "\nÿ€\n\t" [member feature features load format-string "%s"] 4))
  9.  
  10. (defun provide (feature) (lisp-code "\nÿ€ŒKF\"" [member feature features] 3))
  11.  
  12. (defun featurep (feature) (lisp-code "\n" [member feature features] 3))
  13.  
  14. (defun add-hook (hook-sym new-func &optional at-end) 56636 (lisp-code "xÿ€‰IFAHü€œ\tIK\nFAû€¤\tKFA" [hook-sym at-end nconc symbol-value new-func] 4))
  15.  
  16. (defun remove-hook (hook-sym old-func) 56873 (lisp-code "\t\nFA" [delete old-func symbol-value hook-sym] 4))
  17.  
  18. (defun documentation (symbol &optional use-var-doc &aux doc) 56961 (lisp-code "yþ€àü€‘zF#û€Í\tF H\tü€¦†\tF#û€Í‡Laÿ€³ˆLaü€¿‰PF#û€ÍJü€ÌŠPF#û€ÍIHpþ€Ù‹\tF#Hqþ€à" [symbol use-var-doc variable-documentation doc symbol-function subr-p subr-documentation macro special 3 2 get-doc-string] 2))
  19.  
  20. (defun document-var (symbol doc-string) 57163 (lisp-code "{H" [symbol variable-documentation doc-string] 3))
  21.  
  22. (defun format-string (&rest args) (lisp-code "IK L" [apply format "" args] 4))
  23.  
  24. (defun read-from-string (string &optional start) 57264 (lisp-code "pü€Šû€‹K\t" [read start 0 string] 3))
  25.  
  26. (defun autoload (symbol file) 57378 (lisp-code "*FC" [autoload file symbol] 3))
  27.  
  28. (defmacro setcar (&rest args) (lisp-code "K" [rplaca args] 2))
  29.  
  30. (defmacro setcdr (&rest args) (lisp-code "K" [rplacd args] 2))
  31.  
  32. (defmacro eql (&rest args) (lisp-code "K" [eq args] 2))
  33.  
  34. (defmacro string= (&rest args) (lisp-code "K" [equal args] 2))
  35.  
  36. (fset (quote string-equal-p) (symbol-function (quote string=)))
  37.  
  38. (defmacro string< (&rest args) (lisp-code "K" [< args] 2))
  39.  
  40. (fset (quote string-less-p) (symbol-function (quote string<)))
  41.  
  42. (defun set-variable nil 57499 (lisp-code "D\t2þ€ D\t5þ€˜†\tF%þ€ŸFAEE" [prompt-for-variable "Variable name: " var lisp-prompt "Value: " val read-from-string] 3))
  43.  
  44. (defun show-variable nil 57563 (lisp-code "D\t2þ€Œ\tE" [prompt-for-variable "Variable name: " var symbol-value] 2))
  45.  
  46. (defun error (&rest args) (lisp-code "\n)}" [error apply format-string args] 4))
  47.  
  48. (defvar command-arg-list nil 57625)
  49.  
  50. (defun add-command-arg (&optional arg) 57677 (lisp-code "ÿ€\n\tUF Hþ€œ†IK\nF&†" [arg read-from-string prompt2 prompt-complete-symbol "Enter next argument:" nconc command-arg-list] 4))
  51.  
  52. (defun clear-command-args nil 57822 (lisp-code "IF " [command-arg-list] 2))
  53.  
  54. (defun command-prompt (&optional title) 57897 (lisp-code "Dü€‹û€Œ\t\n5IF$H†J\nHE" [apply prompt-for-function title "Enter command name:" command-arg-list res prin1] 3))
  55.