aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/lisp/core.lisp.in22
1 files changed, 11 insertions, 11 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 29fbf93b..89debd5e 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -38,14 +38,13 @@
;;
;; -*- Abstract -*-
;;
-;; This pamphlet defines the core of the system utilities for building
+;; This file defines the core of the system utilities for building
;; Boot and OpenAxiom executable. It essentially etablishes a namespace
;; (package AxiomCore) and defines some macros and functions
-;; that need to be present during during compilation and executable
+;; that need to be present during compilation and executable
;; image construction.
;;
-
(defpackage "AxiomCore"
#+:common-lisp (:use "COMMON-LISP")
#-:common-lisp (:use "LISP" "USER")
@@ -334,7 +333,7 @@
;; --prologue=<lisp-code>: Run <lisp-code> just before the main entry point.
;; --make: boot, lisp, or fasl files
(defparameter |$driverTable|
- (make-hash-table :test #'equal :size 5))
+ (make-hash-table :test #'equal :size 10))
;; Look up the driver that can handle REQUEST. Returns nil when
@@ -343,11 +342,15 @@
(gethash request |$driverTable|))
;; Associate DRIVER with REQUEST.
+;; There can exist at most one driver per request.
(defun |installDriver| (request driver)
(when (|getDriver| request)
(|internalError| "attempt to override driver"))
(setf (gethash request |$driverTable|) driver))
+(defun |useFileType?| (request)
+ (get request 'use-file-type))
+
;; Register DRIVER for a REQUEST for a file with FILE-TYPE extension.
(defun |associateRequestWithFileType| (request file-type driver)
;; If a driver is already installed, it must be non-null.
@@ -432,7 +435,7 @@
(let ((output-option (assoc (|Option| "output") options)))
(when output-option
;; If an output file name was specified on the command line, it
- ;; is so relative to the current workding directory. In
+ ;; is so relative to the current working directory. In
;; particular we want to prevent overly zelous SBCL to mess
;; around with the output file when we call compile-file-pathname.
;; The SBCL-specific hack below does not work all the time, but in
@@ -599,14 +602,14 @@
;; passing mechanism from the shell to the application. That
;; mechanism works fine with GCL. Some Lisp implementations such as
;; SBCL or CLISP will insist on processing the command lines. Some
-;; such CLISP will barfle when they hit an option they don't
+;; such as CLISP will baffle when they hit an option they don't
;; understand. Which is silly. It seems like the only common ground,
;; as ever, is to go with the most annoying behaviour and penalize
;; the good "citizen", sensible, Lisp implementations interfaces.
-;; Consequently, we have standardize on the the following practice:
+;; Consequently, we have standardized on the the following practice:
;; always issue a double bash (--) after the command line, and afterwards
;; supply options and other arguments. The double dash has the effect
-;; of disuading the underlying lisp implementation of trying to
+;; of dissuading the underlying lisp implementation of trying to
;; process whatever comes after as options.
;; Command line arguments: equivalent of traditional `argv[]' from
@@ -679,9 +682,6 @@
(defun |hasHandler?| (request)
(|getDriver| request))
-(defun |useFileType?| (request)
- (get request 'use-file-type))
-
(defun |handleCommandLine| (prog-name options args)
(when (or options args)
(dolist (opt options nil)