home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / xlisp / ufg.arc / CL_TO_XL.LSP next >
Lisp/Scheme  |  1987-06-02  |  852b  |  23 lines
  1. ;;; Initialisation file for Common Lisp to provide compatibility for Lisp-stuff
  2. ;;; that comes from XLISP (V1.7)
  3. (setq *gc-verbose* nil)
  4. (defun divide (x y) (floor x y))
  5. (defun openo (filename)
  6.   (open filename :direction :output :if-exists :new-version))
  7. (defun openi (filename)
  8.   (open filename :if-does-not-exist nil))
  9. (defun flatsize (thing)
  10.   (length (prin1-to-string thing)))
  11. (defun flatc (thing)
  12.   (length (princ-to-string thing)))
  13. (defun transcript (&optional filename)
  14.   (if filename (dribble filename) (dribble)))
  15. (defun putprop (sym val prop)
  16.   (setf (get sym prop) val))
  17. (defun clock ()
  18.   (round (get-internal-real-time) internal-time-units-per-second))
  19. (defun strcat (str1 str2) (concatenate 'string str1 str2))
  20. (defun readln (&optional stream)
  21.   (if stream (read-line stream nil) (read-line *standard-input* nil)))
  22.  
  23.