src/builtin-packages.lisp

   1 (in-package :parenscript)
   2
   3 (defmethod setup-compilation-environment ((comp-env compilation-environment))
   4   (install-standard-script-packages comp-env)
   5   (setf (comp-env-current-package comp-env)
   6         (find-script-package :parenscript-user comp-env))
   7   comp-env)
   8
   9 (defparameter *javascript-exports*
  10   (append
  11    nil
  12    cl-user::*shared-symbols-ps-js*))
  13
  14 (defparameter *parenscript-exports*
  15   (append
  16    *javascript-exports*
  17    cl-user::*parenscript-lang-exports*
  18    nil
  19    ))
  20
  21 (defgeneric install-standard-script-packages (comp-env)
  22   (:documentation "Creates standard script packages and installs them in the current compilation
  23 environment."))
  24
  25 (defmethod install-standard-script-packages ((comp-env compilation-environment))
  26   (list
  27    (create-script-package
  28     comp-env
  29     :name "KEYWORD" :lisp-package :keyword)
  30    (create-script-package
  31     comp-env
  32     :name "GLOBAL" :lisp-package :parenscript.global)
  33    ;; symbols in the parenscript, javascript and parenscript-user packages are non-prefixed
  34    (create-script-package
  35     comp-env
  36     :name "JAVASCRIPT" :prefix "" :nicknames (list "JS") :lisp-package :parenscript.javascript
  37     :exports *javascript-exports*
  38     :secondary-lisp-packages '(:common-lisp))
  39    (create-script-package
  40     comp-env
  41     :name "PARENSCRIPT" :prefix "" :lisp-package :parenscript
  42     :exports *parenscript-exports*
  43     :used-packages '(:javascript)
  44     )
  45    (create-script-package
  46     comp-env
  47     :name "PARENSCRIPT-USER" :prefix "" :lisp-package :parenscript-user
  48     :secondary-lisp-packages (list :cl-user)
  49     :used-packages '("PARENSCRIPT")
  50     :nicknames '("PS-USER" "PAREN-USER"))
  51    (create-script-package
  52     comp-env
  53     :name "PS_GS" :lisp-package :parenscript.ps-gensyms)
  54    (create-script-package
  55     comp-env
  56     :name "UNINTERNED" :prefix "")))