3rdparties/software/trivial-features-20200427-git/src/tf-clasp.lisp (1591 bytes)
1 ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*- 2 ;;; 3 ;;; tf-clasp.lisp --- CLASP implementation of trivial-features. 4 ;;; 5 ;;; Permission is hereby granted, free of charge, to any person 6 ;;; obtaining a copy of this software and associated documentation 7 ;;; files (the "Software"), to deal in the Software without 8 ;;; restriction, including without limitation the rights to use, copy, 9 ;;; modify, merge, publish, distribute, sublicense, and/or sell copies 10 ;;; of the Software, and to permit persons to whom the Software is 11 ;;; furnished to do so, subject to the following conditions: 12 ;;; 13 ;;; The above copyright notice and this permission notice shall be 14 ;;; included in all copies or substantial portions of the Software. 15 ;;; 16 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 17 ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 18 ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 19 ;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 20 ;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 21 ;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 22 ;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 23 ;;; DEALINGS IN THE SOFTWARE. 24 25 (in-package :cl-user) 26 27 ;;;; Endianness 28 ;;; - Set by CLASP directly. Sets :LITTLE-ENDIAN or :BIG-ENDIAN 29 30 ;;;; OS 31 ;;; - Set by CLASP directly. Already pushes :DARWIN, :LINUX, :UNIX, :BSD 32 33 ;;;; CPU 34 ;;; - Set by CLASP directly. Already pushes :X86-64 (currently the only 35 ;;; supported platform) - More will be added directly in CLASP as soon as 36 ;;; porting is done.