src/ps-source-model.lisp

   1 (in-package :parenscript)
   2
   3 ;;; quote
   4 (defscriptclass script-quote (ps-js::expression)
   5   ())
   6
   7 ;;; Compilation environment stuff
   8
   9 (defvar *compilation-environment* nil
  10   "The active compilation environment."
  11 ;; Right now all code assumes that *compilation-environment* is accurately bound to the
  12 ;; current compilation environment--even some functions that take the compilation environment
  13 ;; as arguments.
  14   )
  15
  16 ;; environmental considerations
  17 (defgeneric setup-compilation-environment (comp-env)
  18   (:documentation "Sets up a basic compilation environment prepared for a language user.
  19 This should do things like define packages and set the current package.
  20
  21 Returns the compilation-environment."))
  22
  23 (defun make-basic-compilation-environment ()
  24   "Creates a compilation environment object from scratch.  Fills it in with the default
  25 script packages (parenscript, global, and parenscript-user)."
  26   (let ((*compilation-environment* (make-instance 'compilation-environment)))
  27     (setup-compilation-environment *compilation-environment*)))