Commit d2ce1cc9 authored by Didier Verna's avatar Didier Verna
Browse files

Fix Quickref system name in the code.

parent 08b77e40
......@@ -146,7 +146,8 @@
(defun copy-stylesheets ()
(let ((styles '("main.css" "document.css"))
(css-dir (merge-pathnames #p"share/css/"
(asdf:system-source-directory "quickref")))
(asdf:system-source-directory
:fr.epita.lrde.quickref)))
(website-dir (from-quickref-dir "website/")))
(dolist (file styles)
(file-copy (merge-pathnames file css-dir)
......
......@@ -42,7 +42,8 @@
(defvar *init-file*
(merge-pathnames #p"src/qrmapper-init.lisp"
(asdf:system-source-directory "quickref.core")))
(asdf:system-source-directory
:fr.epita.lrde.quickref.core)))
(defun native-truename (file)
(native-namestring (truename file)))
......
......@@ -63,7 +63,7 @@
(dolist (release (ql-dist:provided-releases t))
(print (get-primary-system-name (ql-dist:name release)))))
(defparameter *other-systems* '("asdf" "quickref"))
(defparameter *other-systems* '("asdf" "fr.epita.lrde.quickref"))
(defmacro endpush (object place)
"Like push, but at the end."
......@@ -72,7 +72,8 @@
(defun map-system (system)
(log-sbcl system
:file (merge-pathnames "map-declt.lisp"
(asdf:system-source-directory "quickref"))
(asdf:system-source-directory
:fr.epita.lrde.quickref))
:environment-pairs (list "*qrmapper-object-name*" system)))
(defun build-releases (&key (remove-cache *remove-cache*))
......@@ -86,7 +87,8 @@ The resulting .texi file is placed inside the release's directory, in
(map-system system))
(map-releases
(merge-pathnames "map-declt.lisp"
(asdf:system-source-directory "quickref")))))
(asdf:system-source-directory
:fr.epita.lrde.quickref)))))
(defvar *buffer* nil)
......@@ -104,7 +106,8 @@ The resulting .texi file is placed inside the release's directory, in
(condition-notify wq)))
(map-releases-thread (merge-pathnames
"map-declt.lisp"
(asdf:system-source-directory "quickref"))
(asdf:system-source-directory
:fr.epita.lrde.quickref))
mutex
wq)
(with-mutex (mutex)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment