jmercouris

-*- mode: grep; default-directory: "/usr/local/src/ccl/" -*-
Grep started at Wed Nov  1 17:18:49

find . -type d \( -path \*/SCCS -o -path \*/RCS -o -path \*/CVS -o -path \*/MCVS -o -path \*/.src -o -path \*/.svn -o -path \*/.git -o -path \*/.hg -o -path \*/.bzr -o -path \*/_MTN -o -path \*/_darcs -o -path \*/\{arch\} \) -prune -o \! -type d \( -name .\#\* -o -name \*.o -o -name \*\~ -o -name \*.bin -o -name \*.lbin -o -name \*.so -o -name \*.a -o -name \*.ln -o -name \*.blg -o -name \*.bbl -o -name \*.elc -o -name \*.lof -o -name \*.glo -o -name \*.idx -o -name \*.lot -o -name \*.fmt -o -name \*.tfm -o -name \*.class -o -name \*.fas -o -name \*.lib -o -name \*.mem -o -name \*.x86f -o -name \*.sparcf -o -name \*.dfsl -o -name \*.pfsl -o -name \*.d64fsl -o -name \*.p64fsl -o -name \*.lx64fsl -o -name \*.lx32fsl -o -name \*.dx64fsl -o -name \*.dx32fsl -o -name \*.fx64fsl -o -name \*.fx32fsl -o -name \*.sx64fsl -o -name \*.sx32fsl -o -name \*.wx64fsl -o -name \*.wx32fsl -o -name \*.fasl -o -name \*.ufsl -o -name

jmercouris

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :interface-packages)
  (require :ns-string-utils))

jmercouris

(defparameter *d* (digraph:make-digraph :initial-vertices
'(alert appkit-version assoc-array
  attributed-strings binding-utils class-convert
  coder coerce-obj combo-box-source date
  debug decimal doc-controller-hash
  file-directory-utils file-monitor hist-dt
  install-executable interactive-app interface-packages
  iu-classes kvo-slot lc-classes lisp-bundle
  lisp-controller lisp-doc-controller lisp-document
  lisp-notification list-utils menu-utils nib-link

jmercouris

(defun lisp-outline ()
  (interactive)
  (occur "defun \\|defclass\\|defmethod "))

jmercouris

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code that Causes Break
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(objc:defmethod (#/sendEvent: :void) ((app ns:ns-application) event)
  (print "event!"))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Error Message Recieved

jmercouris

(objc:defmethod (#/sendEvent: :void) ((self next-application) event)
  (send-super self :send-event event))

jmercouris

  8593070477       24 -rw-r--r--    1 jmercouris       staff               12185 Oct 25 18:39 quicklisp/quicklisp/dists/quicklisp/software/alexandria-20170830-git/macros.lisp
  8593277523        8 -rw-r--r--    1 jmercouris       staff                 646 Oct 30 22:16 dists/quicklisp/software/ironclad_0.33.0/src/macro-utils.lisp
  12091546       24 -rw-r--r--    1 jmercouris       staff               12185 Jul  7 13:33 dists/quicklisp/software/alexandria-20170227-git/macros.lisp
  8593278194        8 -rw-r--r--    1 jmercouris       staff                 621 Oct 30 22:17 dists/quicklisp/software/cl-cuda-20170403-git/src/api/macro.lisp
  8593277494       16 -rw-r--r--    1 jmercouris       staff                6077 Oct 30 22:16 dists/quicklisp/software/nibbles-20170403-git/macro-utils.lisp
  8593277758       32 -rw-r--r--    1 jmercouris       staff               12567 Oct 30 22:16 dists/quicklisp/software/esrap-20170124-git/src/macros.lisp

jmercouris

(defmethod load-cocoa-application ((a cocoa-application))
  (with-autorelease-pool
    (let* ((bundle (#/mainBundle ns:ns-bundle))
	   (info (#/infoDictionary bundle))
	   (classname (#/objectForKey: info #@"NSPrincipalClass"))
	   (progname (#/objectForKey: info #@"CFBundleName")))
      (when (%null-ptr-p classname)
	(setq classname #@"NSApplication"))
      (unless (%null-ptr-p progname)
	(#/setProcessName: (#/processInfo ns:ns-process-info) progname))

jmercouris

(defclass web-view-delegate (ns:ns-object)
  ()
  (:metaclass ns:+ns-object))

(objc:defmethod (#/webViewDidFinishLoad: :void) ((self web-view-delegate) web-view-firing-event)
  (print "called"))

(defun make-web-view ()
  (on-main-thread
   (let ((view

jmercouris

(defclass web-view-delegate (ns:ns-object)
  ()
  (:metaclass ns:+ns-object))

(objc:defmethod (#/webViewDidFinishLoad: :void) ((self web-view-delegate) web-view-firing-event)
  (print "called"))

(defun make-web-view ()
  (on-main-thread
   (let ((view