aamedina

(definterface ITotalOrdered
  (getReadPoint [])
  (getCommitPoint [])
  (stop [^int status]))

(definterface ILockingTransaction
  (tryWriteLock [ref])
  (lock [ref])
  (blockAndBail [info])
  (releaseIfEnsured [ref])

aamedina

(let [f (ref (fn []
               (println "hello there")))]
  (f))

aamedina

(defconstant +element-bit-width+ 4)

(defmacro def-vec (name lambda-list)
  (let* ((n (length lambda-list))
         (vec (gensym "vec")))
    `(progn
       (declaim (inline ,name))
       (defun ,name ,lambda-list
         (declare (optimize (speed 3) (safety 0) (float 0))
                  (single-float ,@lambda-list))

aamedina

(in-package :cl-user)

(enable-ios-syntax)

(objc:define-objc-class view-controller ()
  ()
  (:objc-class-name "ViewController")
  (:objc-superclass-name "UIViewController"))

(objc:define-objc-method ("viewDidLoad" :void)

aamedina

;;----------------------------------------------------------------------------
;;
;; ios-swank-loader.lisp
;;
;;----------------------------------------------------------------------------
;; Copyright (c) 2015 Adrian Medina. All rights reserved.
;;----------------------------------------------------------------------------

(in-package :cl-user)

aamedina

;;----------------------------------------------------------------------------
;;
;; deliver.lisp
;;
;;----------------------------------------------------------------------------
;; Copyright (c) 2015 Adrian Medina. All rights reserved.
;;----------------------------------------------------------------------------

(in-package :cl-user)

aamedina

;; ------------------------------------------
;; Foreign Types
;; ------------------------------------------

(fli:define-foreign-type id ()
  'objc:objc-object-pointer)

;; ------------------------------------------
;; Objective-C Foreign Function Interface
;; ------------------------------------------

aamedina

(in-package :cl-user)
(load-all-patches)
(save-image "/usr/local/bin/lispworks"
            :console t
            :multiprocessing t
            :environment nil)

aamedina

(require 'cl)

(setq custom-file (expand-file-name "~/.emacs.d/custom.el")
      ns-use-srgb-colorspace t
      ring-bell-function 'ignore
      inhibit-startup-message t
      initial-scratch-message nil
      initial-buffer-choice #'eshell
      indent-tabs-mode nil
      make-backup-files nil

aamedina

(defprotocol class
  (class-name [this])
  (class-slots [this])
  (class-direct-superclasses [this])
  (class-direct-slots [this])
  (class-direct-subclasses [this])
  (class-precedence-list [this])
  (class-direct-methods [this]))

(defprotocol slot-definition