From 6d958624e95f032278856499707609647a1c025e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jacek=20TeMPOraL=20Z=C5=82ydach?= <temporal.pl@gmail.com>
Date: Sun, 14 May 2017 12:59:33 +0200
Subject: [PATCH] demo: examples ASDF and updating package code to ANSI.

---
 demo/packages.lisp |  6 +++---
 gramps-clim2.asd   | 21 ++++++++++++++++++++-
 2 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/demo/packages.lisp b/demo/packages.lisp
index ccf851e5..24cb8774 100644
--- a/demo/packages.lisp
+++ b/demo/packages.lisp
@@ -2,12 +2,12 @@
 ;; See the file LICENSE for the full license governing this code.
 ;;
 
-(in-package #-ansi-90 :user #+ansi-90 :common-lisp-user)
+(in-package :cl-user)
 
 ;;;"Copyright (c) 1990, 1991 Symbolics, Inc.  All rights reserved.
 ;;; Portions copyright (c) 1988, 1989, 1990 International Lisp Associates."
 
-(#-ansi-90 clim-lisp::defpackage #+ansi-90 defpackage clim-demo
+(defpackage clim-demo
   (:use clim-lisp clim)
 
   (:shadowing-import-from clim-utils
@@ -23,7 +23,7 @@
     start-demo))
 
 
-(#-ansi-90 clim-lisp::defpackage #+ansi-90 defpackage clim-graphics-editor
+(defpackage clim-graphics-editor
   (:use clim-lisp clim clim-demo)
 
   (:shadowing-import-from clim-utils
diff --git a/gramps-clim2.asd b/gramps-clim2.asd
index 07b28d93..c3dde110 100644
--- a/gramps-clim2.asd
+++ b/gramps-clim2.asd
@@ -195,5 +195,24 @@
 	     (:file "clx-pixmaps")
 	     (:file "clx-frames")))))
 
+;;; based on `clim-demo' in demo/sysdcl.lisp
 (defsystem #:gramps-clim2/examples
-  :description "Applications bundled in gramps-clim2 repository.")
+  :description "Applications bundled in gramps-clim2 repository."
+  :depends-on (#:gramps-clim2/core)
+
+  :components
+  ((:module "demo"
+            :components
+            ((:file "packages")
+             (:file "demo-driver" :depends-on ("packages"))
+             (:file "listener" :depends-on ("demo-driver"))
+             (:file "graphics-demos" :depends-on ("demo-driver"))
+             (:file "cad-demo" :depends-on ("demo-driver"))
+             (:file "navdata" :depends-on ("packages"))
+             (:file "navfun" :depends-on ("navdata"))
+             (:file "puzzle" :depends-on ("demo-driver"))
+             (:file "address-book" :depends-on ("demo-driver"))
+             (:file "thinkadot" :depends-on ("demo-driver"))
+             (:file "plot" :depends-on ("demo-driver"))
+             (:file "color-editor" :depends-on ("demo-driver"))
+             (:file "graphics-editor" :depends-on ("demo-driver"))))))
-- 
GitLab