Starting November 9th, common-lisp.net's Gitlab instance has implemented a more open account policy, allowing anyone with a GitHub or Google account to create an account on our instance.

At the same time, the login policy has started to require 2-factor authentication (2FA).

See https://mailman.common-lisp.net/pipermail/clo-devel/2018-October/001232.html for discussion.

Commit 7861a04f authored by Dave Cooper's avatar Dave Cooper

Regenerated .asd files, Cleaned up definition warnings.

parent 9984e037
......@@ -3,9 +3,9 @@
(asdf:defsystem #:dom :description
"The Gendl® dom Subsystem" :author "Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:cl-who :yadd)
:version "20181023" :depends-on (:cl-who :yadd)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "base/source/package") (:file "base/source/assembly")
......
......@@ -3,9 +3,9 @@
(asdf:defsystem #:gorg :description
"The Gendl® gorg Subsystem" :author "Xinyue (Cherie) Yang" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:html-template :gwl-graphics)
:version "20181023" :depends-on (:html-template :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/base-framework")
......
......@@ -3,9 +3,9 @@
(asdf:defsystem #:graphs :description
"The Gendl® graphs Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170524" :depends-on (:gwl-graphics)
:serial t :version "20181023" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,9 +4,9 @@
"The Gendl® (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:gwl-graphics)
:version "20181023" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -26,7 +26,7 @@
(defun publish-tutorial (server)
(let ((tutorial-file
(or (probe-file (merge-pathnames "../doc/tutorial.pdf" (glisp:executable-homedir-pathname)))
(probe-file (merge-pathnames "gendl/documenation/tutorial/pdf/tutorial.pdf" glisp:*genworks-source-home*))
(probe-file (merge-pathnames "gendl/documentation/tutorial/pdf/tutorial.pdf" glisp:*genworks-source-home*))
(warn "tutorial.pdf not found in distribution doc/ directory or source documentation directory for
publishing in tasty Help menu.~%"))))
(when tutorial-file (publish-file :path "/tutorial.pdf"
......
......@@ -4,9 +4,9 @@
"The Gendl® Web-based Development Environment (tasty)" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:tree :gwl-graphics)
:version "20181023" :depends-on (:tree :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -3,9 +3,9 @@
(asdf:defsystem #:timer :description
"The Gendl® timer Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170524" :depends-on (:cl-smtp :gwl)
:serial t :version "20181023" :depends-on (:cl-smtp :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,9 +4,9 @@
"The Gendl® Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:gwl)
:version "20181023" :depends-on (:gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "xml/source/package") (:file "xml/source/genworks")
......
......@@ -4,9 +4,9 @@
"The Gendl® Tree component used by Tasty and potentially as a UI component on its own"
:author "Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:gwl-graphics)
:version "20181023" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,10 +4,10 @@
"The Gendl® Yet Another Definition Documenter (yadd)" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on
:version "20181023" :depends-on
(:gwl-graphics #-allegro :cl-html-parse)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -4,9 +4,9 @@
"The Gendl® Base Core Kernel Engine" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on ()
:version "20181023" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -26,6 +26,15 @@
(defparameter *external-text-format* :default)
(defparameter *fasl-extension*
#+allegro excl:*fasl-default-type*
#+lispworks compiler:*fasl-extension-string*
#+sbcl sb-fasl:*fasl-file-type*
#+ccl (pathname-type ccl:*.fasl-pathname*)
#+abcl "abcl"
#+clisp "fas"
#-(or allegro lispworks sbcl ccl abcl clisp) (error "Need fasl extension string for the currently running lisp.~%"))
#+nil
(defparameter *external-text-format*
#+(and mswindows allegro) (excl:crlf-base-ef :1252)
......@@ -416,10 +425,13 @@
(:case-insensitive-upper (string-upcase string))
(:case-sensitive-lower string)))
;;
;; FLAG w-o-interrupts is deprecated and ineffective in an SMP Lisp.
;; glisp:w-o-interrupts becomes a simple progn currently.
;; This must be replaced with e.g. appropriate process-locks.~%
;;
(defmacro w-o-interrupts (&body body)
(format t "~&NOTE: w-o-interrupts is deprecated and ineffective in an SMP Lisp.
glisp:w-o-interrupts becomes a simple progn currently.
This must be replaced with e.g. appropriate process-locks.~%")
`(progn ,@body))
......
......@@ -67,24 +67,24 @@
(defun quicklisp-copyright-string ()
(when *already-loaded-systems*
(let ((ql-libs
(safe-sort
(set-difference *already-loaded-systems*
(append (list "asdf" "crypt" "quicklisp" "base" "ent" "validate" "glisp"
"monofasl" "pro" "enterprise")
*packages-to-lock*)
:key #'string :test #'string-equal) #'string-lessp))
(ql-version (with-open-file (in (or (probe-file (merge-pathnames "dists/quicklisp/distinfo.txt" *quicklisp-home*))
(error "Quicklisp directory not found in gendl:*quicklisp-home*,
(if *already-loaded-systems*
(let ((ql-libs
(safe-sort
(set-difference *already-loaded-systems*
(append (list "asdf" "crypt" "quicklisp" "base" "ent" "validate" "glisp"
"monofasl" "pro" "enterprise")
*packages-to-lock*)
:key #'string :test #'string-equal) #'string-lessp))
(ql-version (with-open-file (in (or (probe-file (merge-pathnames "dists/quicklisp/distinfo.txt" *quicklisp-home*))
(error "Quicklisp directory not found in gendl:*quicklisp-home*,
which is set to: ~a.~%" *quicklisp-home*)))
(read-line in) (string-trim (list #\space) (second (glisp:split-regexp ":" (read-line in)))))))
(format nil "Also contains the following Common Lisp libraries
(read-line in) (string-trim (list #\space) (second (glisp:split-regexp ":" (read-line in)))))))
(format nil "Also contains the following Common Lisp libraries
from Quicklisp version ~a, whose source files are available in the
Quicklisp repository at http://quicklisp.org, Copyright© their
respective authors:
~{~a~^, ~}.~%" ql-version ql-libs))))
~%~%~{~a~^, ~}.~%" ql-version ql-libs)) ""))
(defun startup-banner ()
......@@ -94,12 +94,8 @@ respective authors:
Gendl® Free Edition, version ~a
Within ~a ~a
Copyright© 2017, Genworks International, Birmingham MI, USA.
All Rights Reserved.
~a
Welcome to Gendl®
Copyright© 2017, Genworks® International, Birmingham MI, USA.
All Rights Reserved.
......
......@@ -4,9 +4,9 @@
"The Gendl® Compile-and-Load Lite Utility" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:glisp)
:version "20181023" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -136,7 +136,12 @@ given as keyword args to this function)."
(string< (file-namestring x) (file-namestring y)))))
(local-name (lastcar (pathname-directory (or (the ppathname) (the pathname)))))
(subdir-pathnames (mapcar #'pathname-directory
(remove-if-not #'glisp:file-directory-p (the contents)))))
(remove-if-not #'glisp:file-directory-p (the contents))))
)
:trickle-down-slots
(device)
......@@ -152,6 +157,37 @@ given as keyword args to this function)."
:parameters (the :additional-parameters)))))
(defun asd-generator (pathname)
(the-object (make-object 'asd-generator :pathname pathname) generate-all!))
(define-object asd-generator (directory-node)
:computed-slots
((local-asd-files
(remove-if-not #'(lambda(item) (string-equal (pathname-type item) "asd"))
(the contents)))
(all-asd-files (apply #'append (the local-asd-files)
(mapsend (the subdirs) :all-asd-files)))
(directories-in-need (mapcar #'(lambda(asd-file)
(make-pathname :defaults asd-file
:name nil :type nil))
(the all-asd-files)))
(subdir-type 'asd-generator))
:functions
((generate-all!
()
(dolist (directory (the directories-in-need))
(cl-lite directory :create-asd-file? t)))))
(define-object codebase-directory-node (directory-node)
:documentation (:description "Models a filesystem directory for use by the cl-lite program.")
......@@ -237,6 +273,9 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
:computed-slots
(
(strings-for-display (let ((string (enough-namestring (the pathname) (the pathname-root))))
(if (string-equal string "")
(string-append (lastcar (pathname-directory (the pathname))) "/")
......
......@@ -3,8 +3,8 @@
(asdf:defsystem #:4bar :description
"The Gendl® 4bar Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170524" :depends-on (:bus)
:serial t :version "20181023" :depends-on (:bus)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components ((:gdl "source/4bar") (:gdl "source/bus")))
......@@ -4,9 +4,9 @@
"The Gendl® Wireframe School Bus Demo" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:gwl-graphics)
:version "20181023" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,9 +4,9 @@
"The Gendl® Ledger Bookkeeping Demo" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (#-gwl :gwl)
:version "20181023" :depends-on (#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,9 +4,9 @@
"The Gendl® Simplified Android Robot example " :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on (:gwl-graphics)
:version "20181023" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,9 +4,9 @@
"The Gendl® Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on
:version "20181023" :depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components ((:file "source/package") (:file "source/assembly")))
(:gwl-graphics :tasty :robot :yadd)
(:gwl-graphics :tasty :robot :yadd :cl-lite)
......@@ -3,9 +3,9 @@
(asdf:defsystem #:examples :description
"The Gendl® examples Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170524" :depends-on (:gwl-graphics :surf)
:serial t :version "20181023" :depends-on (:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/ch2-examples") (:file "source/ch3-examples")
......
......@@ -3,10 +3,10 @@
(asdf:defsystem #:training :description
"The Gendl® training Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170524" :depends-on
:serial t :version "20181023" :depends-on
(:gwl-graphics :surf :yadd :bordeaux-threads)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "slide-show/source/package")
......
......@@ -3,9 +3,9 @@
(asdf:defsystem #:tutorial :description
"The Gendl® tutorial Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170524" :depends-on (:dom)
:serial t :version "20181023" :depends-on (:dom)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:gdl "apps/yoyodyne/booster-rocket/source/package")
......
......@@ -3,8 +3,9 @@
(asdf:defsystem #:gendl :description
"The Gendl® gendl Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20180115" :depends-on (:gwl-graphics :tasty :robot :yadd)
:serial t :version "20181023" :depends-on
(:gwl-graphics :tasty :robot :yadd :cl-lite)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components ((:file "setup-cffi/source/setup")))
:components nil)
......@@ -23,7 +23,6 @@
(defparameter *fixed-scale?* nil)
(defparameter *dxf-entity-id* nil)
(eval-when (compile load eval) (export '*fixed-scale?*))
......
......@@ -3,7 +3,8 @@
(asdf:defsystem #:geom-base :description
"The Gendl® Wireframe Geometry" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20180823" :depends-on (:cl-pdf :cl-typesetting :cl-who :base)
:serial t :version "20181023" :depends-on
(:cl-pdf :cl-typesetting :cl-who :base)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......@@ -52,7 +53,8 @@
(:file "annotations/source/sample-drawing")
(:file "annotations/source/vertical-dimension")
(:file "drawing/source/base-view")
(:file "drawing/source/document") (:file "drawing/source/lenses")
(:file "drawing/source/document")
(:file "drawing/source/lenses-exp") (:file "drawing/source/lenses")
(:file "drawing/source/renderer-mixin")
(:file "text/source/general-note")
(:file "text/source/typeset-block") (:file "graphs/source/graph")
......
......@@ -171,3 +171,4 @@ the value of this parameter at your own risk.")
(defparameter +lh-identity-matrix+ #2A((1.0 0.0 0.0)(0.0 -1.0 0.0)(0.0 0.0 1.0)))
(defparameter *dxf-entity-id* nil)
"(:uiop :bordeaux-threads :cl-ppcre #-allegro :cl-base64 #-allegro :babel :base)"
"(:uiop :bordeaux-threads :cl-ppcre #+sbcl :sb-posix #-allegro :cl-base64 #-allegro :babel :base)"
......@@ -4,8 +4,11 @@
"The Gendl® Common Lisp Portability" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170828"
:depends-on (:uiop :bordeaux-threads :cl-ppcre #-allegro :cl-base64 #-allegro :babel :base)
:version "20181023" :depends-on
(:uiop :bordeaux-threads :cl-ppcre #+sbcl :sb-posix #-allegro :cl-base64 #-allegro :babel :base)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/parameters") (:file "source/genworks") (:file "source/initialize")
(:file "source/zzinit")))
((:file "source/parameters") (:file "source/genworks")
(:file "source/initialize") (:file "source/zzinit")))
......@@ -21,14 +21,6 @@
(in-package :com.genworks.lisp)
(defparameter *fasl-extension*
#+allegro excl:*fasl-default-type*
#+lispworks compiler:*fasl-extension-string*
#+sbcl sb-fasl:*fasl-file-type*
#+ccl (pathname-type ccl:*.fasl-pathname*)
#+abcl "abcl"
#+clisp "fas"
#-(or allegro lispworks sbcl ccl abcl clisp) (error "Need fasl extension string for the currently running lisp.~%"))
(defparameter *temporary-folder-function* #'(lambda() (merge-pathnames "tmp/" (user-homedir-pathname))))
......
......@@ -4,7 +4,7 @@
"The Gendl® GWL embedded graphics support" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20180920" :depends-on (:geom-base :gwl)
:version "20181023" :depends-on (:geom-base :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
"(#-allegro :zacl)"
\ No newline at end of file
......@@ -4,15 +4,14 @@
"The Gendl® Generative Web Language (GWL)" :author
"Dave Cooper, Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170802" :depends-on
(#+(or ccl sbcl allegro) :zaserve #-(or ccl sbcl allegro) :paserve :cl-who :yason :glisp)
:version "20181023" :depends-on
( #+(or ccl sbcl allegro) :zaserve #-(or ccl sbcl allegro) :paserve :cl-who :yason :glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/with-all-servers")
(:file "source/defparameters") (:file "source/base-html-sheet")
(:file "source/genworks")
(:file "source/html-format") (:file "source/macros")
(:file "source/presets") (:file "source/base-html-utils")
(:file "source/ignore-errors-with-backtrace")
......@@ -20,15 +19,15 @@
(:file "source/accessories") (:file "source/gdl-remote")
(:file "source/vanilla-remote") (:file "source/base64-utils")
(:file "source/color-palette") (:file "source/crawler")
(:file "source/log-utils") (:file "source/new-urls")
(:file "source/genworks") (:file "source/new-urls")
(:file "source/publish") (:file "source/remote-object")
(:file "source/security-check-failed")
(:file "form-elements/source/grid-form-element")
(:file "form-elements/source/macros")
(:file "form-elements/source/primitives")
(:file "ajax/source/parameters") (:file "ajax/source/ajax")
(:file "ajax/source/parameters")
(:file "ajax/source/skeleton-ui-element")
(:file "ajax/source/base-ajax-sheet")
(:file "ajax/source/ajax") (:file "ajax/source/base-ajax-sheet")
(:file "gwl-session/source/parameters")
(:file "gwl-session/source/cleanup")
(:file "gwl-session/source/functions")
......
("remote-test")
("remote-test" "log-utils")
......@@ -28,6 +28,8 @@
(defvar *log-file* nil)
(defparameter *aserve-log-request-after-functions* nil)
(defun start-log-maker (&key (interval 30) (resolve-dns? t) (server net.aserve:*wserver*))
(setq *log-file* (format nil "/home/dcooper8/kitchen/logs-~a-~a.lisp"
......@@ -78,7 +80,7 @@
(dolist (function *aserve-log-request-after-functions*)
(funcall function req)))
(defparameter *aserve-log-request-after-functions* nil)
#+nil
(defmethod monkey-log ((req http-request))
......
(".git" "apps" "base" "cl-lite" "demos" "documentation" "emacs" "geom-base" "glisp" "gwl"
"gwl-graphics" "licenses" "patches" "program" "regression" "release-notes" "surf")
\ No newline at end of file
"gwl-graphics" "licenses" "patches" "program" "regression" "release-notes" "surf" "setup-cffi")
\ No newline at end of file
......@@ -3,9 +3,9 @@
(asdf:defsystem #:regression :description
"The Gendl® regression Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170524" :depends-on (:lift :surf :tasty)
:serial t :version "20181023" :depends-on (:lift :surf :tasty)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode nil
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "utils/source/package") (:file "utils/source/genworks")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:setup-cffi :description
"The Gendl® setup-cffi Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170828" :depends-on (:cffi)
:serial t :version "20181023" :depends-on ("cffi")
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -4,7 +4,7 @@
"The Gendl® NURBS Surface and Solids Geometry Primitives" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20180823" :depends-on (:geom-base)
:version "20181023" :depends-on (:geom-base)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
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