Permalink
Browse files

Merge pull request #10 from rick-monster/master

this is a fix to make cl-cairo2 compile on ccl
  • Loading branch information...
2 parents 9340ccd + efec05a commit 1867afb1fe75dcc8b72f139a4bb5290b70bc1cad @tpapp committed Dec 10, 2015
Showing with 8 additions and 0 deletions.
  1. +8 −0 colors.lisp
View
@@ -12,6 +12,10 @@
(green nil :type unit-real :read-only t)
(blue nil :type unit-real :read-only t))
+(defmethod make-load-form ((p rgb) &optional env)
+ (declare (ignore env))
+ (make-load-form-saving-slots p))
+
(defun gray (value)
"Create an RGB representation of a gray color (value in [0,1)."
(rgb value value value))
@@ -24,6 +28,10 @@
(saturation nil :type unit-real :read-only t)
(value nil :type unit-real :read-only t))
+(defmethod make-load-form ((p hsv) &optional env)
+ (declare (ignore env))
+ (make-load-form-saving-slots p))
+
(define-structure-let+ (hsv) hue saturation value)
(defun normalize-hue (hue)

0 comments on commit 1867afb

Please sign in to comment.