Fix url property function

2017-02-10 11:08:52 +01:00 · 2017-02-10 11:08:52 +01:00 · bda8fe2209
parent e028d076ff
commit bda8fe2209
1 changed files with 1 additions and 1 deletions
--- a/special.lisp
+++ b/special.lisp
@ -12,12 +12,12 @@
                ,@(loop for (name args) on rest by #'cddr
                        collect `(define-simple-property-function ,name ,args)))))
  (define-properties
-    url (url)
    rgb (red green blue)
    rgba (red green blue alpha)
    hsl (hue saturation lightness)
    hsla (hue saturation lightness alpha)))
 (define-property-function hex (hex) (format NIL "#~6,'0d" hex))
+(define-property-function url (url) (format NIL "url(~s)" url))

 (define-property-function calc (func)
  (with-output-to-string (out)