Commit 05864754 authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

geometry/transformation: The TRANSFORMATION protocol-class.

  * The beginnings of the CLIM model for describing relationships
between coordinate systems (most notably, between a sheet and its
parent).
parent beaa65ce
;;;
;;; nq-clim/geometry/transformation
;;;
;;; Parts of CLIM II 5.1.
;;;
(cl:defpackage :nq-clim/geometry/transformation
(:use :cl)
(:export
"TRANSFORMATION"
"TRANSFORMATIONP"))
(cl:in-package :nq-clim/geometry/transformation)
;; The TRANSFORMATION protocol class.
(defclass transformation () ())
;; The TRANSFORMATION protocol predicate.
(defun transformationp (object)
"Return TRUE iif OBJECT is a TRANSFORMATION."
(typep object 'transformation))
;;; EOF
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment