src/new-cl/types.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Type definitions and constructors
   4 ;;;
   5
   6 (in-package :iolib.common-lisp)
   7
   8 (deftype boolean ()
   9   'cl:boolean)
  10
  11 (defun boolean (x)
  12   (if x t nil))