;;; Source file: /usr/local/lib/jade/3.2/lisp/lisp.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:58 1994
;;; Jade 3.2

(defvar features nil 82098)

(defun require (feature &optional file) 82240 (jade-byte-code "И    		" [feature features load file symbol-name] 3))

(defun provide (feature) 82373 (jade-byte-code "И  KF!" [feature features] 2))

(defun featurep (feature) 82431 (jade-byte-code "И" [feature features] 2))

(defun autoload (symbol &rest autoload-defn) 82490 (jade-byte-code "KFC" [autoload autoload-defn symbol] 3))

(defun add-hook (hook-symbol new-func &optional at-end) 82846 (jade-byte-code "x  	IFAH№ 	IK
FA√ $	KFA" [hook-symbol at-end nconc symbol-value new-func] 4))

(defun remove-hook (hook-symbol old-func) 83037 (jade-byte-code "	КFA" [old-func symbol-value hook-symbol] 3))

(defun prin1-to-string (arg) 83085 (jade-byte-code "I" [format "%S" arg] 4))

(defun read-from-string (string &optional start) 83122 (jade-byte-code "
	" [read make-string-input-stream string start] 4))

(defmacro setcar (&rest args) (jade-byte-code "K" [rplaca args] 2))

(defmacro setcdr (&rest args) (jade-byte-code "K" [rplacd args] 2))

(defmacro string= (&rest args) (jade-byte-code "K" [equal args] 2))

(fset (quote string-equal-p) (symbol-function (quote string=)))

(defmacro string< (&rest args) (jade-byte-code "K" [< args] 2))

(fset (quote string-less-p) (symbol-function (quote string<)))

(defun error (&rest args) (jade-byte-code "I)}" [error apply format args] 5))

(defun eval-and-print (form) 83202 (interactive "xEval: ") (jade-byte-code "UJ
" [prin1 form] 3))