Merge pull request #2 from LispyStuff/master

Minimal changes to run on LW8
40ants · Jan 7, 2025 · 19cc187 · 19cc187
2 parents 8d2a165 + 13bd903
commit 19cc187
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/documentation.lisp b/documentation.lisp
@@ -36,7 +36,9 @@ directory, optionally appending the string RELATIVE-PATH."
                (format nil
                        #+(or :lispworks6.1 :lispworks7)
                        "manual/online/~A"
-                       #-(or :lispworks6.1 :lispworks7)
+                       #+:lispworks8
+                       "manual/html-w/~A"
+                       #-(or :lispworks6.1 :lispworks7 :lispworks8)
                        "manual/online/web/~A"
                        (or relative-path "")))))
 

diff --git a/systems.lisp b/systems.lisp
@@ -262,7 +262,7 @@ as members of type :SYSTEM.  Returns its original argument."
           (gc-if-needed)
           module-name)))))
 
-#-:lispworks7
+#-:lispworks7+
 (defadvice (asdf::parse-component-form translate :around
                                        :documentation "Whenever
 an ASDF system is parsed we translate it to a Common Defsystem
@@ -275,7 +275,7 @@ system definition on the fly.")
         (translate-module candidate)))
     candidate))
 
-#-:lispworks7
+#-:lispworks7+
 ;; translate the systems that have already been loaded
 (dolist (sys-name '(:cl-ppcre :cl-who :lw-doc :lw-add-ons))
   (translate-module (asdf:find-system sys-name)))