anchor.diff:  
   ;;; Notebook
   
  -(defun create-notebook-page (notebook page-num)
  +(defun create-notebook-page (notebook page-num book-closed)
     (let* ((title (format nil "Page ~D" page-num))
   	 (page (make-instance 'frame :label title :border-width 10))
    	 (v-box (make-instance 'v-box 
  
positive.code: 	    (menu-shell-append menu menu-item)
  	    (when (= i 3)
  	      (setf (widget-sensitive-p menu-item) nil))
  	    (setf (menu-item-submenu menu-item) (create-menu (1- depth) t)))))
        menu)))
  
  
  
negative.code: (define-simple-dialog create-reparent (dialog "Reparent")
    (let ((main (make-instance 'h-box 
  	       :homogeneous t :spacing 10 :border-width 10 :parent dialog))
  	(label (make-instance 'label :label "Hello World")))
  
      (flet ((create-frame (title)
  	     (let* ((frame (make-instance 'frame :label title :parent main))
  