V0 [CLEAVIR-AST:PROGN-AST :FORM-ASTS ([CLEAVIR-AST:CALL-AST :ARGUMENT-ASTS ([CLEAVIR-AST:CONSTANT-AST :VALUE COMMON-LISP:T :ORIGIN #1=([SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 10 :LINE-INDEX 33 :LINES #2=#(";;;; Copyright (c) 2010 - 2015" ";;;;" ";;;; Robert Strandh (robert.strandh@gmail.com)" ";;;;" ";;;; All rights reserved." ";;;;" ";;;; Redistribution and use in source and binary forms, with or" ";;;; without modification, are permitted provided that the following" ";;;; conditions are met:" ";;;;" ";;;; 1. Redistributions of source code must retain the above copyright" ";;;; notice, this list of conditions and the following disclaimer." ";;;; 2. Redistributions in binary form must reproduce the above" ";;;; copyright notice, this list of conditions and the following" ";;;; disclaimer in the documentation and/or other materials" ";;;; provided with the distribution." ";;;;" ";;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND" ";;;; CONTRIBUTORS \"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES," ";;;; INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF" ";;;; MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE" ";;;; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS" ";;;; BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL," ";;;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED" ";;;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE," ";;;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON" ";;;; ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY," ";;;; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY" ";;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE" ";;;; POSSIBILITY OF SUCH DAMAGE." "" "(cl:in-package #:sicl-clos)" "" "(defclass t ()" " ()" " (:metaclass built-in-class))") ] . [SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 11 :LINE-INDEX 33 :LINES #2# ]) ] [CLEAVIR-AST:CONSTANT-AST :VALUE :NAME :ORIGIN COMMON-LISP:NIL ] [CLEAVIR-AST:CONSTANT-AST :VALUE COMMON-LISP:T :ORIGIN #1# ] [CLEAVIR-AST:CONSTANT-AST :VALUE :DIRECT-SUPERCLASSES :ORIGIN COMMON-LISP:NIL ] [CLEAVIR-AST:CALL-AST :ARGUMENT-ASTS COMMON-LISP:NIL :CALLEE-AST [CLEAVIR-AST:FDEFINITION-AST :NAME-AST [CLEAVIR-AST:CONSTANT-AST :VALUE COMMON-LISP:LIST :ORIGIN COMMON-LISP:NIL ] :ORIGIN COMMON-LISP:NIL ] :ORIGIN COMMON-LISP:NIL ] [CLEAVIR-AST:CONSTANT-AST :VALUE :DIRECT-SLOTS :ORIGIN COMMON-LISP:NIL ] [CLEAVIR-AST:CALL-AST :ARGUMENT-ASTS COMMON-LISP:NIL :CALLEE-AST [CLEAVIR-AST:FDEFINITION-AST :NAME-AST [CLEAVIR-AST:CONSTANT-AST :VALUE COMMON-LISP:LIST :ORIGIN COMMON-LISP:NIL ] :ORIGIN COMMON-LISP:NIL ] :ORIGIN COMMON-LISP:NIL ] [CLEAVIR-AST:CONSTANT-AST :VALUE :METACLASS :ORIGIN ([SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 3 :LINE-INDEX 35 :LINES #2# ] . [SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 13 :LINE-INDEX 35 :LINES #2# ]) ] [CLEAVIR-AST:CONSTANT-AST :VALUE COMMON-LISP:BUILT-IN-CLASS :ORIGIN ([SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 14 :LINE-INDEX 35 :LINES #2# ] . [SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 28 :LINE-INDEX 35 :LINES #2# ]) ]) :CALLEE-AST [CLEAVIR-AST:FDEFINITION-AST :NAME-AST [CLEAVIR-AST:CONSTANT-AST :VALUE SICL-CLOS:ENSURE-CLASS :ORIGIN COMMON-LISP:NIL ] :ORIGIN COMMON-LISP:NIL ] :ORIGIN #3=([SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 0 :LINE-INDEX 33 :LINES #2# ] . [SICL-SOURCE-TRACKING:SOURCE-POSITION :CHARACTER-INDEX 30 :LINE-INDEX 35 :LINES #2# ]) ]) :ORIGIN #3# ]