Changeset 8432


Ignore:
Timestamp:
01/31/05 17:28:58 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/jvm.lisp

    r8416 r8432  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.379 2005-01-31 05:53:38 piso Exp $
     4;;; $Id: jvm.lisp,v 1.380 2005-01-31 17:28:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3131          sys::expand-source-transform))
    3232
    33 (require :source-transform)
     33(require '#:clos)
     34
     35(require '#:source-transform)
    3436
    3537(require '#:opcodes)
     
    12381240        :format-control format-control
    12391241        :format-arguments format-arguments))
     1242
     1243(defun compiler-error (format-control &rest format-arguments)
     1244  (incf *errors*)
     1245  (error 'compiler-error
     1246         :format-control format-control
     1247         :format-arguments format-arguments))
    12401248
    12411249(defun compiler-unsupported (format-control &rest format-arguments)
     
    53865394    (compiler-unsupported "COMPILE-DEFUN: unable to compile LAMBDA form defined in non-null lexical environment."))
    53875395  (aver (null *current-compiland*))
    5388   (handler-bind ((warning #'handle-warning))
     5396  (handler-bind ((warning #'handle-warning)
     5397                 (compiler-error #'handle-compiler-error))
    53895398    (compile-1 (make-compiland :name name
    53905399                               :lambda-expression (precompile-form form t)
     
    53985407  (format t "; Caught ~A:~%;   ~A~%" (type-of condition) condition)
    53995408  (muffle-warning))
     5409
     5410(defun handle-compiler-error (condition)
     5411  (fresh-line)
     5412  (format t "; Caught ~A:~%;   ~A~%" (type-of condition) condition))
    54005413
    54015414(defun get-lambda-to-compile (definition-designator)
Note: See TracChangeset for help on using the changeset viewer.