Overall update.

generate-doc.lisp

@@ -35,50 +35,51 @@
 
 (in-package :common-lisp-user)
 
-(ql:quickload :iso-2533)
-(ql:quickload :rs-doc) ;private
+(ql:quickload "iso-2533")
+(ql:quickload "rs-doc") ;private
 
-(let ((symbols '(iso-2533:standard-acceleration-of-gravity
-		 iso-2533:standard-pressure
-		 iso-2533:standard-temperature
-		 iso-2533:standard-density
-		 iso-2533:avogadro-constant
-		 iso-2533:molar-gas-constant
-		 iso-2533:molar-mass
-		 iso-2533:specific-gas-constant
-		 iso-2533:ratio-of-specific-heats
-		 iso-2533:earth-radius
-		 iso-2533:atm
-		 iso-2533:pressure-altitude
-		 iso-2533:acceleration-of-gravity
-		 iso-2533:geometric-altitude
-		 iso-2533:geopotential-altitude
-		 iso-2533:flight-level
-		 iso-2533:density
-		 iso-2533:specific-weight
-		 iso-2533:pressure-scale-height
-		 iso-2533:number-density
-		 iso-2533:mean-speed
-		 iso-2533:mean-free-path
-		 iso-2533:collision-frequency
-		 iso-2533:speed-of-sound
-		 iso-2533:dynamic-viscosity
-		 iso-2533:kinematic-viscosity
-		 iso-2533:thermal-conductivity)))
-  (rs-doc:generate-doc
-   :package :iso-2533
-   :symbols symbols
+(in-package :rs-doc-user)
+
+(let ((data (gather-doc
+             :package :iso-2533
+             :symbols '(iso-2533:standard-acceleration-of-gravity
+		        iso-2533:standard-pressure
+		        iso-2533:standard-temperature
+		        iso-2533:standard-density
+		        iso-2533:avogadro-constant
+		        iso-2533:molar-gas-constant
+		        iso-2533:molar-mass
+		        iso-2533:specific-gas-constant
+		        iso-2533:ratio-of-specific-heats
+		        iso-2533:earth-radius
+		        iso-2533:atm
+		        iso-2533:pressure-altitude
+		        iso-2533:acceleration-of-gravity
+		        iso-2533:geometric-altitude
+		        iso-2533:geopotential-altitude
+		        iso-2533:flight-level
+		        iso-2533:density
+		        iso-2533:specific-weight
+		        iso-2533:pressure-scale-height
+		        iso-2533:number-density
+		        iso-2533:mean-speed
+		        iso-2533:mean-free-path
+		        iso-2533:collision-frequency
+		        iso-2533:speed-of-sound
+		        iso-2533:dynamic-viscosity
+		        iso-2533:kinematic-viscosity
+		        iso-2533:thermal-conductivity)))
+      (doc-dir (merge-pathnames
+		(make-pathname :directory '(:relative "doc"))
+		(asdf:system-source-directory "iso-2533"))))
+  (generate-doc
+   :data data
    :output-format :html
-   :output (make-pathname :directory '(:relative "doc")
-			  :name "iso-2533"
-			  :type "html"))
-  (rs-doc:generate-doc
-   :package :iso-2533
-   :symbols symbols
+   :output (merge-pathnames (uiop:parse-unix-namestring "iso-2533.html") doc-dir))
+  (generate-doc
+   :data data
    :output-format :text
-   :output (make-pathname :directory '(:relative "doc")
-			  :name "iso-2533"
-			  :type "txt"))
-  (values))
+   :output (merge-pathnames (uiop:parse-unix-namestring "iso-2533.txt") doc-dir))
+  ())
 
 ;;; generate-doc.lisp ends here