Fix Quickref system name in the code.

core/src/file.lisp

@@ -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)

core/src/qrmapper.lisp

@@ -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)))

core/src/quickref.lisp

@@ -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)