Commit af804e62 authored by Dave Cooper's avatar Dave Cooper
Browse files

removed asdf: dependencies to asdf-utilities for asdf 2.25 compatibility....

removed asdf: dependencies to asdf-utilities for asdf 2.25 compatibility. Preparing for October Quicklisp release
parent 41288de2
......@@ -55,15 +55,15 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
glisp:*genworks-source-home*))
#+nil
(setf (symbol-value (read-from-string
"asdf:*central-registry*")) nil)))
"asdf-utilities:*central-registry*")) nil)))
(pre-load-form (the load-core-gdl-form))
(post-load-form '(progn (setf (symbol-value (read-from-string
"asdf:*central-registry*")) nil)
(asdf:map-systems #'asdf:clear-system)
(asdf:clear-output-translations)
(asdf:disable-output-translations)
"asdf-utilities:*central-registry*")) nil)
(asdf-utilities:map-systems #'asdf-utilities:clear-system)
(asdf-utilities:clear-output-translations)
(asdf-utilities:disable-output-translations)
))
......@@ -171,11 +171,11 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
(require :smtp)
(require :ftp)
(load (merge-pathnames "demos/gdl-demos.asd" glisp:*genworks-source-home*))
(asdf:load-system :gdl-demos)
(asdf-utilities:load-system :gdl-demos)
(load (merge-pathnames "../downloads/gdl-downloads.asd" glisp:*genworks-source-home*))
(asdf:load-system :gdl-downloads)
(asdf-utilities:load-system :gdl-downloads)
(load (merge-pathnames "demos/newsite/gdl-newsite.asd" glisp:*genworks-source-home*))
(asdf:load-system :gdl-newsite)
(asdf-utilities:load-system :gdl-newsite)
(setf (symbol-value (read-from-string
"glisp:*genworks-source-home*")) nil))
:destination-directory
......
......@@ -56,8 +56,8 @@
target :force force :quiet quiet :if-does-not-exist if-does-not-exist))
#+(and mswindows allegro)
(ff:def-foreign-call (memory-status-dump "memory_status_dump") ())
#+allegro
(ff: def-foreign-call (memory-status-dump "memory_status_dump") ())
(defun dump-memory (&key (output-name "mem")
......@@ -65,12 +65,12 @@
(output-path (merge-pathnames (make-pathname :name output-name
:type output-type)
(glisp:temporary-folder))))
#+(and mswindows allegro)
#+allegro
(let ((status (memory-status-dump (namestring (translate-logical-pathname output-path)))))
(unless (zerop status) (error "~&memory-status-dump failed with non-zero return code: ~a~%~%" status))
output-path)
#-(and mswindows allegro) (declare (ignore output-path))
#-(and mswindows allegro)
#-allegro (declare (ignore output-path))
#-allegro
(error "Need implementation of dump-memory for currently running lisp."))
(defun implementation-identifier ()
......
(asdf:defsystem #:gdl-aero-demo-1 :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2012091300" :depends-on nil :components
((:lisp "source/package")
(:lisp "source/interior-ref-surf")
(:lisp "source/material")
(:lisp "source/parameters")
(:lisp "source/ref-surface")
(:lisp "source/surface-trim")
(:lisp "source/utilities")))
\ No newline at end of file
......@@ -2,6 +2,6 @@
(defparameter *data-pathname*
(make-pathname :directory (append (pathname-directory (asdf:system-source-directory :gdl-aero-demo-1))
(make-pathname :directory (append (pathname-directory (glisp:system-home :gdl-aero-demo-1))
(list "data"))
:device (pathname-device (asdf:system-source-directory :gdl-aero-demo-1))))
:device (pathname-device (glisp:system-home :gdl-aero-demo-1))))
......@@ -23,7 +23,7 @@
(let ((static (namestring
(merge-pathnames "newsite/static/"
(asdf:system-source-directory "gdl-demos")))))
(glisp:system-home "gdl-demos")))))
(publish-directory :prefix "/newsite-static/"
:headers (list (cons :cache-control "86400"))
:destination static))
......
......@@ -24,7 +24,7 @@
(let ((static (namestring
(merge-pathnames "site/static/"
(asdf:system-source-directory "gdl-demos")))))
(glisp:system-home "gdl-demos")))))
(publish-directory :prefix "/site-static/"
:destination static))
......
(asdf:defsystem #:gdl-wind-demo-1 :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2012091300" :depends-on nil :components
((:lisp "source/package") (:lisp "source/parameters")
(:lisp "source/assembly")
(:lisp "source/blade-tanase-new")
(:lisp "source/edge-blend-surface-wind")
(:lisp "source/flaps-blade") (:lisp "source/hub")
(:lisp "source/nacelle")
(:lisp "source/profile-curv")
(:lisp "source/rotor-assembly")
(:lisp "source/support")
(:lisp "source/surface-general-rotation")
(:lisp "source/test") (:lisp "source/wt-demo-1")))
\ No newline at end of file
......@@ -245,9 +245,8 @@
(require 'color-theme)
(color-theme-initialize)
(require 'color-theme-solarized)
;;(color-theme-solarized-light)
(color-theme-katester)
(color-theme-sitaramv-solaris)
;;
;; end of color-theme setup.
......
......@@ -5,7 +5,7 @@
(gwl-make-object req ent "training-g108:assembly")))
(defparameter *images-path* (merge-pathnames "g108/images/"
(asdf:system-source-directory "gdl-training")))
(glisp:system-home "gdl-training")))
(publish-directory :prefix "/g108/images/"
......
(asdf:defsystem #:gdl-training :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2012063000" :depends-on (:gdl-smlib)
:components
((:lisp "slide-show/source/package")
(:gendl "slide-show/source/assembly")
(:lisp "slide-show/source/publish")
(:lisp "g101/source/package")
(:lisp "g101/source/publish")
(:lisp "g101/examples/source/file-io")
(:lisp "g101/examples/source/solutions")
(:lisp "g101/slides/source/assembly")
(:lisp "g101/slides/source/conclusion")
(:lisp "g101/slides/source/control")
(:lisp "g101/slides/source/data-structures")
(:lisp "g101/slides/source/functions")
(:lisp "g101/slides/source/input-output")
(:lisp "g101/slides/source/introduction")
(:lisp "g101/slides/source/lists")
(:lisp "g101/slides/source/macros")
(:lisp "g101/slides/source/numbers")
(:lisp "g101/slides/source/symbols")
(:lisp "g101/slides/source/welcome")
(:lisp "g102/source/package")
(:lisp "g102/source/publish")
(:lisp "g102/examples/ackermann/source/package")
(:lisp
"g102/examples/ackermann/source/ackermann-assembly")
(:lisp
"g102/examples/ackermann/source/simple-linkage")
(:lisp "g102/examples/ackermann/source/tie-rod-arm")
(:lisp "g102/examples/city/source/package")
(:lisp "g102/examples/city/source/rules")
(:lisp "g102/examples/city/source/assembly")
(:lisp "g102/examples/city/source/building")
(:lisp "g102/examples/city/source/grid-section")
(:lisp "g102/examples/solids/source/primitives")
(:lisp "g102/examples/solids/source/web-page")
(:lisp "g102/examples/source/fuselage-example")
(:lisp "g102/examples/source/g102-exercises")
(:lisp "g102/examples/source/hairy")
(:lisp "g102/examples/source/section-2-examples")
(:lisp "g102/examples/source/tower-example")
(:lisp "g102/examples/table/source/t-support")
(:lisp "g102/examples/table/source/table")
(:lisp "g102/slides/source/assembly")
(:lisp "g102/slides/source/debugging")
(:lisp "g102/slides/source/fuselage-example")
(:lisp "g102/slides/source/future")
(:lisp "g102/slides/source/geometry")
(:lisp "g102/slides/source/outside-world")
(:lisp "g102/slides/source/session-01")
(:lisp "g102/slides/source/session-02")
(:lisp "g102/slides/source/session-03")
(:lisp "g102/slides/source/session-04")
(:lisp "g102/slides/source/session-05")
(:lisp "g102/slides/source/session-06")
(:lisp "g102/slides/source/session-07")
(:lisp "g102/slides/source/tower-example")
(:lisp "g102/slides/source/user-interface")
(:lisp "g102/solutions/ackermann/source/package")
(:lisp
"g102/solutions/ackermann/source/ackermann-assembly")
(:lisp
"g102/solutions/ackermann/source/simple-linkage")
(:lisp
"g102/solutions/ackermann/source/tie-rod-arm")
(:lisp "g102/solutions/city/source/package")
(:lisp "g102/solutions/city/source/rules")
(:lisp "g102/solutions/city/source/assembly")
(:lisp "g102/solutions/city/source/building")
(:lisp "g102/solutions/city/source/grid-section")
(:lisp "g102-tud/source/package")
(:lisp "g102-tud/source/publish")
(:lisp "g102-tud/slides/source/ch2")
(:lisp "g102-tud/slides/source/ch3")
(:lisp "g105/source/package")
(:lisp "g105/source/publish")
(:lisp "g105/examples/source/drilled-block")
(:lisp "g105/slides/source/assembly")
(:lisp "g105/slides/source/session-01")
(:lisp "g105/slides/source/session-02")
(:lisp "g108/source/package")
(:lisp "g108/source/publish")
(:lisp "g108/examples/source/examples")
(:lisp "g108/slides/source/ajax-sections")
(:lisp "g108/slides/source/assembly")
(:lisp "g108/slides/source/basic-sheet")))
\ No newline at end of file
This is a Subversion working copy administrative directory.
Visit http://subversion.tigris.org/ for more information.
<?xml version="1.0" encoding="utf-8"?>
<wc-entries
xmlns="svn:">
<entry
committed-rev="280"
name=""
committed-date="2007-10-24T03:08:26.467973Z"
url="svn://svn.genworks.com/garden/genworks/trunk/training/gdl"
last-author="dcooper8"
kind="dir"
uuid="19280abd-882d-0410-b834-b0da3c188257"
repos="svn://svn.genworks.com/garden"
revision="412"/>
<entry
name="source"
kind="dir"/>
<entry
name="images"
kind="dir"/>
<entry
name="pdf"
kind="dir"/>
<entry
name="cover"
kind="dir"/>
</wc-entries>
This is a Subversion working copy administrative directory.
Visit http://subversion.tigris.org/ for more information.
<?xml version="1.0" encoding="utf-8"?>
<wc-entries
xmlns="svn:">
<entry
committed-rev="1"
name=""
committed-date="2007-04-07T17:20:20.485248Z"
url="svn://svn.genworks.com/garden/genworks/trunk/training/gdl/cover"
last-author="dcooper8"
kind="dir"
uuid="19280abd-882d-0410-b834-b0da3c188257"
repos="svn://svn.genworks.com/garden"
revision="412"/>
<entry
committed-rev="1"
name="copy.html"
text-time="2007-08-29T02:19:12.000000Z"
committed-date="2007-04-07T17:20:20.485248Z"
checksum="fe2157365aaa49d38683ae37b88b5611"
last-author="dcooper8"
kind="file"
prop-time="2007-08-29T02:19:12.000000Z"/>
</wc-entries>
Supports Markdown
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