common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

roswell:*load* changed to assoc list.

Browse source
This commit is contained in:
SANO Masatoshi 2017-05-30 13:56:49 +09:00
parent 5e3746982f
commit 2dae778a1f
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/init.lisp
View file

@ -35,7 +35,7 @@ have the latest asdf, and this file has a workaround for this.
(defparameter *argv* nil)
(defparameter *ros-opts* nil)
(defparameter *main* nil)
(defparameter *load* 'cl:load)
(defparameter *load* `((identity . cl:load)))
;; small tools
(defun getenv (x)
@ -391,10 +391,11 @@ have the latest asdf, and this file has a workaround for this.
(defun load (x file)
(declare (ignore x))
(when (verbose)
(format *error-output* "~A ~A~%" *load* file)
(finish-output))
(funcall *load* file))
(let ((function (rest (find-if (lambda (x) (funcall (first x) file)) *load*))))
(when (verbose)
(format *error-output* "~A ~A~%" function file)
(finish-output))
(funcall function file)))
(defun run (list)
"The true internal entry invoked by the C binary. All roswell commands are dispatched from this function"