Updates to tuts and new with-sync-event

FUTURE.md

@@ -8,8 +8,6 @@ When to use page vs panel
 Running JavaScript
 Plug-in panels for use on other sites
 
-- CLOG tools for concurrency - clog-mutex
-
 - Multi control select and alignments in Builder
 
 - Right click menus CLOG-GUI

doc/clog-manual.html

@@ -407,6 +407,16 @@ for openning windows on remote machines.</p></li>
 
 <h2><a href="#x-28CLOG-3A-40CLOG-UTILITIES-20MGL-PAX-3ASECTION-29">5 CLOG Utilities</a></h2>
 
+<p>Concurrent Hash Tables</p>
+
+<p><a id='x-28CLOG-3AMAKE-HASH-TABLE-2A-20FUNCTION-29'></a></p>
+
+<ul>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-HASH-TABLE-2A-20FUNCTION-29" >MAKE-HASH-TABLE*</a></span></span> <span class="locative-args">&amp;REST ARGS</span></span></p>
+
+<p>Use native concurrent hash tables</p></li>
+</ul>
+
 <p>CLOG-Group - Utility Class for CLOG-Obj storage</p>
 
 <p><a id='x-28CLOG-3ACLOG-GROUP-20CLASS-29'></a></p>
@@ -629,6 +639,23 @@ clog-body of this connection and accessible with <a href="#x-28CLOG-3ACONNECTION
 <p>Get connection's clog-body.</p></li>
 </ul>
 
+<p><a id='x-28CLOG-3ACONNECTION-SYNC-20GENERIC-FUNCTION-29'></a></p>
+
+<ul>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACONNECTION-SYNC-20GENERIC-FUNCTION-29" >CONNECTION-SYNC</a></span></span> <span class="locative-args">CLOG-OBJ</span></span></p>
+
+<p>Get connection's clog-sync for optional syncing events.</p></li>
+</ul>
+
+<p><a id='x-28CLOG-3AWITH-SYNC-EVENT-20MGL-PAX-3AMACRO-29'></a></p>
+
+<ul>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[macro]</span> <span class="reference-object"><a href="#x-28CLOG-3AWITH-SYNC-EVENT-20MGL-PAX-3AMACRO-29" >WITH-SYNC-EVENT</a></span></span> <span class="locative-args">(CLOG-OBJ) &amp;BODY BODY</span></span></p>
+
+<p>Place at start of event to serialize access to the event. All events in
+an application share per connection the same queue of serialized events.</p></li>
+</ul>
+
 <p><a id='x-28CLOG-3AREMOVE-CONNECTION-DATA-ITEM-20GENERIC-FUNCTION-29'></a></p>
 
 <ul>

source/clog-base.lisp

@@ -474,6 +474,26 @@ clog-body of this connection and accessible with CONNECTION-BODY."))
 (defmethod connection-body (clog-obj)
   (connection-data-item clog-obj "clog-body"))
 
+;;;;;;;;;;;;;;;;;;;;;
+;; connection-sync ;;
+;;;;;;;;;;;;;;;;;;;;;
+
+(defgeneric connection-sync (clog-obj)
+  (:documentation "Get connection's clog-sync for optional syncing events."))
+
+(defmethod connection-sync (clog-obj)
+  (connection-data-item clog-obj "clog-sync"))
+
+;;;;;;;;;;;;;;;;;;;;;
+;; with-sync-event ;;
+;;;;;;;;;;;;;;;;;;;;;
+
+(defmacro with-sync-event ((clog-obj) &body body)
+  "Place at start of event to serialize access to the event. All events in
+an application share per connection the same queue of serialized events."
+  `(bordeaux-threads:with-lock-held (,`(connection-sync ,clog-obj))
+     ,@body))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; connection-data-item ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;

source/clog-system.lisp

@@ -41,6 +41,7 @@ the same as the clog directy this overides the relative paths used in them.")
       (if on-new-window
 	  (progn
 	    (setf (connection-data-item body "clog-body") body)
+	    (setf (connection-data-item body "clog-sync") (bordeaux-threads:make-lock))
 	    (funcall on-new-window body))
 	  (put-br (html-document body) "No route to on-new-window")))))
 

source/clog.lisp

@@ -105,6 +105,8 @@ embedded in a native template application.)"
   (connection-data             generic-function)
   (connection-data-item        generic-function)
   (connection-body             generic-function)
+  (connection-sync             generic-function)
+  (with-sync-event             macro)
   (remove-connection-data-item generic-function)
   (validp                      generic-function)
 

templates/projects/clog-gui/tmpl.lisp.lt

@@ -37,11 +37,11 @@
     (clog-gui-initialize body)
     (add-class body "w3-teal")  
     (let* ((menu-bar    (create-gui-menu-bar body))
-	   (icon-item   (create-gui-menu-icon menu-bar :on-click #'on-help-about))
+	   (icon-item   (create-gui-menu-icon menu-bar :on-click 'on-help-about))
 	   (file-item   (create-gui-menu-drop-down menu-bar :content "File"))
-	   (file-new    (create-gui-menu-item file-item :content "New Window" :on-click #'on-file-new))
+	   (file-new    (create-gui-menu-item file-item :content "New Window" :on-click 'on-file-new))
 	   (help-item   (create-gui-menu-drop-down menu-bar :content "Help"))
-	   (help-about  (create-gui-menu-item help-item :content "About" :on-click #'on-help-about))
+	   (help-about  (create-gui-menu-item help-item :content "About" :on-click 'on-help-about))
 	   (full-screen (create-gui-menu-full-screen menu-bar)))
       (declare (ignore icon-item file-new help-about full-screen))
       (run body))))

tutorial/01-tutorial.lisp

@@ -40,8 +40,13 @@
   (initialize #'on-new-window)
   ;; Set the function on-new-window to execute
   ;; everytime a browser connection to our app.
-  ;; #' tells common lisp to pass the function
+  ;; #' tells common lisp to pass the function.
-  ;; to intialize and not to execute it.
+  ;; If we pass the symbol 'on-new-window it
+  ;; it will look each time for the function
+  ;; represented by our symbol. This is generally
+  ;; prefered in development as then we can
+  ;; recompile our events while running ie. M-C-x
+  ;; in emacs.
 
   ;; Open a browser to http://127.0.0.1:8080 - the default for CLOG apps
   (open-browser))

tutorial/02-tutorial.lisp

@@ -38,5 +38,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/03-tutorial.lisp

@@ -12,22 +12,26 @@
     (let ((x 0))
       (set-on-click hello-element
 		    (lambda (obj)
-		      (declare (ignore obj))
+		      (declare (ignorable obj))
-		      (incf x)
+		      ;; Add to try non-parallel events:
-		      (dotimes (n x)
+		      ;; (with-sync-event (obj)
+		      (let ((y (incf x)))
+			(dotimes (n y)
 			  (create-p body
-				  :content (format nil "Clicked ~A times." x))
+				    :content (format nil "Clicked ~A times." y))
-			(sleep x)))))
+			  (sleep y)))))) ;)
     (run body)))
 
 ;;; Running this version of the last tutorial and clicking quickly on the (click me!)
 ;;; will demonstrate an important aspect of CLOG, events can happen in _parallel_.
 ;;; This means that appropriate precautions to thread protect data should be taken
-;;; and that events do not wait for previous event handlers to complete. One simple
+;;; and that events do not wait for previous event handlers to complete. To change
-;;; way to avoid issues is to use the key :one-time t on the set-on-click or other
+;;; this behavior just add at start of event WITH-SYNC-EVENT and then all events
-;;; event, this will turn off the event immediately when the user clicks and can then
+;;; will be serialized like in "traditional" GUIs to that event, events using
-;;; set the event again when done handling the event if want to again accept the event.
+;;; WITH-SYNC-EVENT will be on same queue of incoming events and syncronized.
+;;; But... notice what happens once syncing is on the next event doesn't hit until
+;;; SLEEP returns.
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/04-tutorial.lisp

@@ -12,12 +12,12 @@
   (setf (title (html-document body)) "Tutorial 4")
   ;; The same handler #'my-on-click is set on both targets
   (set-on-click (create-section body :h1 :content "Hello World! (click me!)")
-		#'my-on-click)
+		'my-on-click)
   (set-on-click (create-section body :h3 :content "Click me too!")
-		#'my-on-click)
+		'my-on-click)
   (run body))
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/05-tutorial.lisp

@@ -15,12 +15,12 @@
   "On-new-window handler."  
   (setf (title (html-document body)) "Tutorial 5")
   (set-on-click (create-section body :h1 :content "Hello World! (click me!)")
-		#'my-on-click)
+		'my-on-click)
   (setf (connection-data-item body "changer")
 	(create-section body :h1 :content "I change"))
   (run body))
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/06-tutorial.lisp

@@ -28,10 +28,10 @@
   "On-new-window handler."
   (setf (title (html-document body)) "Tutorial 6")
   (set-on-click (create-section body :h1 :content "(click me to start!)")
-		#'my-on-click)
+		'my-on-click)
   (run body))
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/07-tutorial.lisp

@@ -34,7 +34,7 @@
 			     (set-bounds))))
 	  ;; Setup our "mover". Darth
 	  (setf (positioning mover) :fixed)
-	  (set-on-click mover #'on-click)
+	  (set-on-click mover 'on-click)
 	  ;; Get Darth moving!
 	  (bordeaux-threads:make-thread    ; In addtion to the main task (the on-new-window)
 	   (lambda ()                      ; and the task created for each event like clicks
@@ -80,5 +80,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/08-tutorial.lisp

@@ -5,11 +5,7 @@
 (in-package :clog-tut-8)
 
 (defclass app-data ()
-  ((drag-mutex
+  ((in-drag
-    :reader drag-mutex
-    :initform (bordeaux-threads:make-lock)
-    :documentation "Serialize access to the on-mouse-down event.")
-   (in-drag
     :accessor in-drag-p
     :initform nil
     :documentation "Ensure only one box is dragged at a time.")
@@ -22,8 +18,8 @@
   (:documentation "App data specific to each instance of our tutorial 8 app"))
 
 (defun on-mouse-down (obj data)
-  (let ((app (connection-data-item obj "app-data")))    ; Access our instance of App-Data
+  (with-sync-event (obj)                                 ; Serialize events to on-mouse-down.
-    (bordeaux-threads:with-lock-held ((drag-mutex app)) ; Ensure the first event received
+    (let ((app (connection-data-item obj "app-data")))   ; Ensure the first event received
       (unless (in-drag-p app)                            ; to drag is the only one, ie only
 	(setf (in-drag-p app) t)                         ; the innermost box is dragged.
 	(let* ((mouse-x  (getf data :screen-x))          ; Use the screen coordinates not
@@ -102,5 +98,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/09-tutorial.lisp

@@ -158,5 +158,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/10-tutorial.lisp

@@ -24,5 +24,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/11-tutorial.lisp

@@ -66,11 +66,11 @@
 	     (reset form)))
     ;; We need to override the boostrap default to submit the form html style
     (set-on-submit form (lambda (obj)(declare (ignore obj))()))
-    (set-on-click good-button #'on-click-good)
+    (set-on-click good-button 'on-click-good)
-    (set-on-click scary-button #'on-click-scary))
+    (set-on-click scary-button 'on-click-scary))
     (run body)))
 
 (defun start-tutorial ()
   "Start tutorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser :url "http://127.0.0.1:8080/tutorial/tut-11.html"))

tutorial/12-tutorial.lisp

@@ -81,35 +81,35 @@
 	     (reset form)))
     ;; We need to override the boostrap default to submit the form html style
     (set-on-submit form (lambda (obj)(declare (ignore obj))()))
-    (set-on-click good-button #'on-click-good)
+    (set-on-click good-button 'on-click-good)
-    (set-on-click scary-button #'on-click-scary))
+    (set-on-click scary-button 'on-click-scary))
     (run body)))
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-main)
+  (initialize 'on-main)
   ;; Navigating to http://127.0.0.1:8080/page1 executes on-page1
-  (set-on-new-window #'on-page1 :path "/page1")
+  (set-on-new-window 'on-page1 :path "/page1")
   ;; Navigating to http://127.0.0.1:8080/page1.html executes on-page1
   ;; There is no .html file - it is just a route to CLOG handler
   ;; but the user thinks it is like any other html file.
-  (set-on-new-window #'on-page1 :path "/page1.html")
+  (set-on-new-window 'on-page1 :path "/page1.html")
   ;; Navigating to http://127.0.0.1:8080/somepath/page1/ executes on-page1
   ;; the path set can be any valid html path and has no meaning.
-  (set-on-new-window #'on-page1 :path "/somepath/hi/")
+  (set-on-new-window 'on-page1 :path "/somepath/hi/")
   ;; Here we add another page, page2. It uses a boot file that turns
   ;; on debugging to the browser console of communications with the
   ;; server.
-  (set-on-new-window #'on-page2 :path "/page2" :boot-file "/debug.html")
+  (set-on-new-window 'on-page2 :path "/page2" :boot-file "/debug.html")
   ;; Here we add another page, page3. But this time we use the html file
   ;; from tutorial 11 and make it the boot-file and execute the same code
   ;; in (on-tutorial11) as in tutorial 11.
-  (set-on-new-window #'on-tutorial11 :path "/page3"
+  (set-on-new-window 'on-tutorial11 :path "/page3"
 				     :boot-file "/tutorial/tut-11.html")
   ;; Setting a "default" path says that any use of an included boot.js
   ;; file will route to this function, in this case #'on-default
   ;; which will determine if this is coming from the path used in tutorial
   ;; 11 - "http://127.0.0.1:8080/tutorial/tut-11.html" and if it does
   ;; use on-tutorial11, and if not say "No Dice!"
-  (set-on-new-window #'on-default :path "default")
+  (set-on-new-window 'on-default :path "default")
   (open-browser))

tutorial/13-tutorial/hello-clog/hello-clog.lisp

@@ -9,7 +9,7 @@
   (run body))
 
 (defun start-app ()
-  (initialize #'on-new-window
+  (initialize 'on-new-window
 	      :static-root (merge-pathnames "./www/"
 			     (asdf:system-source-directory :hello-clog)))
   (open-browser))

tutorial/14-tutorial.lisp

@@ -54,5 +54,5 @@ Changes made to a local key will fire an event and print below:<br>"
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/15-tutorial.lisp

@@ -29,5 +29,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/16-tutorial.lisp

@@ -75,6 +75,6 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-index)
+  (initialize 'on-index)
-  (set-on-new-window #'on-page2 :path "/page2")
+  (set-on-new-window 'on-page2 :path "/page2")
   (open-browser))

tutorial/17-tutorial.lisp

@@ -110,8 +110,8 @@
 
 (defun start-tutorial ()
   "Start tutorial."
-  (initialize #'on-index)
+  (initialize 'on-index)
-  (set-on-new-window #'on-page2 :path "/page2")
+  (set-on-new-window 'on-page2 :path "/page2")
-  (set-on-new-window #'on-page3 :path "/page3")
+  (set-on-new-window 'on-page3 :path "/page3")
-  (set-on-new-window #'on-page4 :path "/page4")
+  (set-on-new-window 'on-page4 :path "/page4")
   (open-browser))

tutorial/18-tutorial.lisp

@@ -57,5 +57,5 @@
 
 (defun start-tutorial ()
   "Start tutorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/19-tutorial.lisp

@@ -29,5 +29,5 @@
 
 (defun start-tutorial ()
   "Start tutorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/20-tutorial.lisp

@@ -71,5 +71,5 @@
 
 (defun start-tutorial ()
   "Start tutorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/21-tutorial.lisp

@@ -59,5 +59,5 @@ on the drop-root."))
 
 (defun start-tutorial ()
   "Start tutorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/22-tutorial.lisp

@@ -125,29 +125,29 @@
   (clog-gui-initialize body)
   (add-class body "w3-cyan")  
   (let* ((menu  (create-gui-menu-bar body))
-	 (tmp   (create-gui-menu-icon menu :on-click #'on-help-about))
+	 (tmp   (create-gui-menu-icon menu :on-click 'on-help-about))
 	 (file  (create-gui-menu-drop-down menu :content "File"))
-	 (tmp   (create-gui-menu-item file :content "Count" :on-click #'on-file-count))
+	 (tmp   (create-gui-menu-item file :content "Count" :on-click 'on-file-count))
-	 (tmp   (create-gui-menu-item file :content "Browse" :on-click #'on-file-browse))
+	 (tmp   (create-gui-menu-item file :content "Browse" :on-click 'on-file-browse))
-	 (tmp   (create-gui-menu-item file :content "Drawing" :on-click #'on-file-drawing))
+	 (tmp   (create-gui-menu-item file :content "Drawing" :on-click 'on-file-drawing))
-	 (tmp   (create-gui-menu-item file :content "Movie" :on-click #'on-file-movies))
+	 (tmp   (create-gui-menu-item file :content "Movie" :on-click 'on-file-movies))
-	 (tmp   (create-gui-menu-item file :content "Pinned" :on-click #'on-file-pinned))
+	 (tmp   (create-gui-menu-item file :content "Pinned" :on-click 'on-file-pinned))
 	 (win   (create-gui-menu-drop-down menu :content "Window"))
-	 (tmp   (create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows))
+	 (tmp   (create-gui-menu-item win :content "Maximize All" :on-click 'maximize-all-windows))
-	 (tmp   (create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows))
+	 (tmp   (create-gui-menu-item win :content "Normalize All" :on-click 'normalize-all-windows))
 	 (tmp   (create-gui-menu-window-select win))
 	 (dlg   (create-gui-menu-drop-down menu :content "Dialogs"))
-	 (tmp   (create-gui-menu-item dlg :content "Alert Dialog Box" :on-click #'on-dlg-alert))	 
+	 (tmp   (create-gui-menu-item dlg :content "Alert Dialog Box" :on-click 'on-dlg-alert))	 
-	 (tmp   (create-gui-menu-item dlg :content "Input Dialog Box" :on-click #'on-dlg-input))
+	 (tmp   (create-gui-menu-item dlg :content "Input Dialog Box" :on-click 'on-dlg-input))
-	 (tmp   (create-gui-menu-item dlg :content "Confirm Dialog Box" :on-click #'on-dlg-confirm))
+	 (tmp   (create-gui-menu-item dlg :content "Confirm Dialog Box" :on-click 'on-dlg-confirm))
-	 (tmp   (create-gui-menu-item dlg :content "Form Dialog Box" :on-click #'on-dlg-form))
+	 (tmp   (create-gui-menu-item dlg :content "Form Dialog Box" :on-click 'on-dlg-form))
-	 (tmp   (create-gui-menu-item dlg :content "Server File Dialog Box" :on-click #'on-dlg-file))
+	 (tmp   (create-gui-menu-item dlg :content "Server File Dialog Box" :on-click 'on-dlg-file))
 	 (tst   (create-gui-menu-drop-down menu :content "Toasts"))
-	 (tmp   (create-gui-menu-item tst :content "Alert Toast" :on-click #'on-toast-alert))
+	 (tmp   (create-gui-menu-item tst :content "Alert Toast" :on-click 'on-toast-alert))
-	 (tmp   (create-gui-menu-item tst :content "Warning Toast" :on-click #'on-toast-warn))
+	 (tmp   (create-gui-menu-item tst :content "Warning Toast" :on-click 'on-toast-warn))
-	 (tmp   (create-gui-menu-item tst :content "Success Toast" :on-click #'on-toast-success))
+	 (tmp   (create-gui-menu-item tst :content "Success Toast" :on-click 'on-toast-success))
 	 (help  (create-gui-menu-drop-down menu :content "Help"))
-	 (tmp   (create-gui-menu-item help :content "About" :on-click #'on-help-about))
+	 (tmp   (create-gui-menu-item help :content "About" :on-click 'on-help-about))
 	 (tmp   (create-gui-menu-full-screen menu)))
     (declare (ignore tmp)))
   (set-on-before-unload (window body) (lambda(obj)
@@ -158,5 +158,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/23-tutorial.lisp

@@ -52,5 +52,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/24-tutorial.lisp

@@ -98,11 +98,11 @@
 		     ";; This is a code block<br>
                       (defun start-tutorial ()<br>
                       \"Start turtorial.\"<br>
-                      (initialize #'on-new-window)<br>
+                      (initialize 'on-new-window)<br>
                       (open-browser))")
     (run body)))
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/25-tutorial.lisp

@@ -66,5 +66,5 @@
 
 (defun start-tutorial ()
   "Start turtorial."
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   (open-browser))

tutorial/26-tutorial.lisp

@@ -99,7 +99,7 @@
 (defun start-tutorial ()
   "Start turtorial."
   ;; We would probably set :host to my IP and :port 80 here if running a live site
-  (initialize #'on-new-window)
+  (initialize 'on-new-window)
   ;; In real life, if we openning a browser here it would likely be
   ;; to a page with a monitor of system etc. since it is local.
   (open-browser))

tutorial/28-tutorial/hello-builder/hello-builder.lisp

@@ -9,7 +9,7 @@
   (setf (color (hello-span panel)) (rgb (random 255) (random 255) (random 255))))
 
 (defun start-app ()
-  (initialize #'create-hello-page
+  (initialize 'create-hello-page
 	      :static-root (merge-pathnames "./www/"
 			     (asdf:system-source-directory :hello-builder)))
   (open-browser))