Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

63 lines (51 sloc) 1.865 kB
#!/bin/sh
cat <<EOF
(in-package :cl-user)
#+allegro
(progn
(setf excl::*redefinition-pathname-comparison-hook*
(list #'(lambda (old new obj type)
(declare (ignore obj type))
(when (and old new)
(string=
(namestring old)
(let ((str (namestring new)))
(subseq str 0 (position #\; str :from-end t))))))))
(tpl:setq-default *debugger-hook* #'swank:swank-debugger-hook)
(tpl:setq-default *print-length* 10)
(tpl:setq-default *print-level* 5)
(tpl:setq-default *print-circle* nil))
(setq *debugger-hook* #'swank:swank-debugger-hook)
(setf *print-length* 10)
(setf *print-level* 5)
(setf *print-circle* nil)
(setf swank::*swank-pprint-case* :downcase)
(setf swank::*swank-pprint-length* nil)
(setf swank::*swank-pprint-level* nil)
(setf swank::*swank-pprint-circle* nil)
(defun lispbox-file (relative-pathname)
(merge-pathnames
relative-pathname
(make-pathname
:directory (butlast (pathname-directory *load-pathname*))
:name nil
:type nil
:defaults *load-pathname*)))
(load (lispbox-file (make-pathname :directory '(:relative "quicklisp") :name "setup" :type "lisp")))
;#-asdf
;(progn
; (multiple-value-bind (value error)
; (ignore-errors (require :asdf))
; (if error
; (load (lispbox-file (make-pathname :name "asdf" :type "lisp"))))))
;(load (lispbox-file (make-pathname :name "asdf-extensions" :type "lisp")))
;;; Clean up CL-USER package
(loop with cl = (find-package :cl)
for p in (package-use-list :cl-user)
unless (eql p cl) do (unuse-package p :cl-user))
;(use-package :asdf :cl-user)
;(use-package :com.gigamonkeys.asdf-extensions :cl-user)
EOF
#cat <<EOF
#(register-source-directory (lispbox-file (make-pathname :directory '(:relative "${PRACTICALS}"))))
#EOF
Jump to Line
Something went wrong with that request. Please try again.