@@ -1,13 +1,11 @@

 CCL=ccl

 dylib: nsrect-expose.m

-	clang -shared \

-			-framework Cocoa \

-			nsrect-expose.m \

-			-o libnsrect-expose.dylib

+	clang -shared -framework Cocoa nsrect-expose.m -o libnsrect-expose.dylib

 demo-app: dylib

 	$(CCL) --load ~/quicklisp/setup.lisp \

+		    --eval '(ql:quickload :data-lens)' \

 		   --load save.lisp

 demo-app.iconset: demo-app.svg

@@ -25,9 +25,10 @@

                               :executable t)))

 #+safari2org-beta

 (progn

-  (load "scripting-bridge.lisp")

+  (load (compile-file "scripting-bridge.lisp"))

+  (load (compile-file "safari-tool.lisp"))

   (eval-when (:compile-toplevel :load-toplevel :execute)

     (sb-ext:save-lisp-and-die "safari2org-beta"

                               :toplevel (intern "SAFARI-2-MAIN"

-                                                "OBJC.SCRIPTING-BRIDGE")

+                                                "FWOAR.SAFARI-TOOL")

                               :executable t)))

@@ -9,7 +9,8 @@

   (:panes (classes :application

                    :incremental-redisplay t

                    :display-function 'display-classes

-                   :double-buffering t)

+                   #+nil(:double-buffering t)

+                   )

           (methods :application

                    :incremental-redisplay t

                    :display-function 'display-methods)

@@ -67,6 +67,7 @@

 (defmacro comment (&body b)

   b ())

+

 #+nil

 (comment

   (defun kebab-case (s)

@@ -115,5 +116,4 @@

   (define-objc-call @(init) () :pointer)

   (define-objc-call @(sharedApplication) () :pointer)

-

   )