Commit 71778686 authored by Liam Healy's avatar Liam Healy

Restore degree symbol, using system trivial-utf-8

parent 155af5c9
;; Physical dimension system definition
;; Liam Healy 2012-02-20 10:14:49EST physical-dimension.asd
;; Time-stamp: <2015-03-14 10:36:24EDT physical-dimension.asd>
;; Time-stamp: <2015-11-25 13:45:08EST physical-dimension.asd>
;; Copyright 2012, 2013, 2014, 2015 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -26,7 +26,7 @@
:author "Liam M. Healy"
:license "GPL v3"
:serial t
:depends-on (#:foreign-array #:fare-utils)
:depends-on (#:foreign-array #:fare-utils #:trivial-utf-8)
:components
((:module init
:serial t
......@@ -40,6 +40,7 @@
(:file "scalar")
(:file "funcall")
(:file "unit-definitions")
(:file "degree-symbol")
(:file "sysunit-definitions")
(:file "physical-quantities")
(:file "undimension")
......@@ -69,14 +70,3 @@
((:file "physical-quantities")
(:file "physical-quantities-grid")
(:file "format-grid")))))
#|
(asdf:defsystem-connection #:degree-symbol
:serial t
:requires (#:physical-dimension #:cl-unicode)
:components
((:module physical-quantities
:components
((:file "degree-symbol")))))
|#
;; Load the degree symbol from cl-unicode
;; Liam Healy 2011-01-30 18:33:55EST degree-symbol.lisp
;; Time-stamp: <2011-02-11 22:33:11EST degree-symbol.lisp>
;; Time-stamp: <2015-11-25 13:38:06EST degree-symbol.lisp>
;; Copyright 2011 Liam M. Healy
;; Copyright 2011, 2015 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -21,8 +21,7 @@
(in-package :antik)
(eval-when (:compile-toplevel :load-toplevel :execute)
(setf *degree-symbol*
(princ-to-string (cl-unicode:character-named "degree sign"))))
(setf *degree-symbol* (trivial-utf-8:utf-8-bytes-to-string #(194 176))))
(define-units 'angle
`((degree (/ ,pi 180)
......
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